Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
11. Apr 2003
Glaub mir, ich habe deinen Code mit drei Editfelder 1 bis 3 ausprobiert und natürlich die Anzahl angepaßt.
Hier
if TEdit('Edit'+IntToStr(i)).Text = '' then
kommt der Crash. Überpüfe es selber wenn du willst. Kompilieren geht aber ausführen nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
11. Apr 2003
So geht's:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 1 to 3 {Anzahl Edits} do
begin
with TEdit(FindComponent('Edit'+IntToStr(i))) do
begin