Edit1.text --> 1 durch Variable ersetzen?

[SteffenG]

hallo,

Hier erstmal der Quelltext:

Delphi-Quellcode:

  for i := 1 to 6 do
  begin
  info := table1.FieldByName(datei).AsString;
  table1.next;
  Edit1.Text := info;
  end;

Ich möchte, dass das Programm etwas aus der Datenbank ausließt. Dann soll er zum nächsten Datensatz der DB gehen.
So, und jetzt mein Problem: Diese Information, die er gerade ausgelesen hat, soll nun in Edit1,Text geschrieben werden. Bislang kein Problem, aber wenn er jetzt die Schleife erneut ausführt, soll er die nächste Information nicht wieder in Edit1.Text packen, sondern in Edit2.text.
Um das tun zu können, müsste ich die 1 von Edit1.text durch eine Variable(Integer) ersetzen, die sich bei jeder Schleife um eine Zahl erhöht. Das könnte man ja ohne weiteres mit .inc machen. Aber Wie sagt man Delphi dann, dass er die 1 von Edit1.Text durch die Variable ersetzen soll?

[mkinzler]

Kannst du nur durch die Methode FindComponent() der Formklasse bewerkstelligen.
z.B.

Delphi-Quellcode:

for i := 1 to 6 do
  begin
  info := table1.FieldByName(datei).AsString;
  table1.next;
  KompName := 'Edit'+IntToStr( i);
  (Form1.FindComponent( KompName) as TEdit).Text := Info;
  end;

[SteffenG]

Zitat von mkinzler:

Kannst du nur durch die Methode FindComponent() der Formklasse bewerkstelligen.
z.B.

Delphi-Quellcode:

for i := 1 to 6 do
  begin
  info := table1.FieldByName(datei).AsString;
  table1.next;
  KompName := 'Edit'+IntToStr( i);
  (Form1.FindComponent( KompName) as TEdit).Text := Info;
  end;

Ok, hat funktioniert, danke!

[vlees91]

Zitat von mkinzler:

  (Form1.FindComponent( KompName) as TEdit).Text := Info;

geht das nicht auch mit FindComponent('Edit' + EditNR).Text := Info ich habe nämlich in Erinnerung, dass ich das mal so gemacht habe

[mkinzler]

Nein FindComponenet liefert ein Objekt vom Typ TComponent zurück. Diese Klasse besitzt aber die Eigenschaft Text nicht. deshalb muß nach TEdit gecastet werden.

[vlees91]

stimmt
hab grad nachgeguckt
es war: aktFeld := TEdit(FindComponent('SudokuFeld_' + SudoX + '_' + SudoY)).Text;