procedure TForm1.FormCreate(Sender: TObject);var num1:integer; num2:double;begin num1:= 275; num2:= 3.18; if edit1.text = IntToStr(num1) then edit2.text = FloatToStr(num2);end;
Quote from: theflash09 on January 17, 2019, 10:25:15 amprocedure TForm1.FormCreate(Sender: TObject);var num1:integer; num2:double;begin num1:= 275; num2:= 3.18; if edit1.text = IntToStr(num1) then edit2.text = FloatToStr(num2);end;Please, see attached project.Code: Pascal [Select][+][-]unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject);begin Edit1.Text := '275'; Edit3.Text := '3.18'; Edit1.ReadOnly := True; Edit3.ReadOnly := True; Edit4.ReadOnly := True;end; procedure TForm1.FormShow(Sender: TObject);begin Edit2.SetFocus;end; procedure TForm1.Button1Click(Sender: TObject);begin if Edit2.Text = Edit1.Text then Edit4.Text := Edit3.Text else Edit4.Text := 'different';end; end.
What was the error?
Humm ... let me check something... Well, it works here too, with Lazarus/FPC 1.8.4/3.0.4 Linux-i386-GTK2