[/delphi]Ich hatte vorher in einem anderen Programm diesen Code...
Der Button zum ausführne und die Edit Boxen lagen auf der selben Form...
Delphi-Quellcode:
procedure TForm2.dxButton1Click(Sender: TObject);
var E, E2: TStringList;
i, ID:Integer;
begin
E:=TStringList.Create; //Datei 1
E.LoadFromFile('.\list1.txt');
E2:=TStringList.Create; //Datei 2
E2.LoadFromFile('.\list2.txt');
E.AddStrings(E2); //Zusammenführen
E2.Free; //Datei 2 kann weg
for i:=1 to 24 do //für 24 Edits
begin
ID:=Random(E.Count); //Index raussuchen
if E.Count=0 then Break;
TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit
E.Delete(ID); //Text auf SL löschen
form2.caption:= 'Seatplan Designer';
end;
E.Free;
end;
Nun habe ich ein neues Programm mit MDICHilds beim starten wird ein neues Child mit Edit Boxen erzeugt so wie ich es vorgegeben habe ...
Nur wie sieht jetzt der Code dafür aus? Diesmail liegt der Button auf der Hauptform und die Edit BOxen sind jeweils in den Childs...
Child.TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit
Wenn ich es so mache mekert TEdit undifinierter bezeichner...