Hallo Leute,
ich lasse bei meien Programm Namen aus 2 Dateien auf EditBoxen aufteilen..
vgl. Programm Seatplan bei Freeware
Delphi-Quellcode:
procedure TForm2.dxButton1Click(Sender: TObject);
var E, E2: TStringList;
i, ID:Integer;
begin
E:=TStringList.Create; //Datei 1
E.LoadFromFile(form1.OpenDialog1.FileName);
E2:=TStringList.Create; //Datei 2
E2.LoadFromFile(form1.OpenDialog2.FileName);
E.AddStrings(E2); //Zusammenführen
E2.Free; //Datei 2 kann weg
for i:=1 to 30 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;
Ich hätte es gerne so das Wenn ich eine Checkbox aktiviert habe immer Namen aus Datei 1 neben Naben aus Datei2 aufgeteitwerden kurzgesagt Jungen neben Mädchen...