also...
such mal nach "explode"
dann:
Delphi-Quellcode:
var T: TStringDynArray;
F, F2: TStringList;
i:Integer;
begin
F:=TStringList.Create;
F.LoadFromFile('Datei');
F2:=TStringList.Create;
F2.LoadFromFile('Datei2');
F2.AddStrings(F);
F.Clear;
for i:=0 to F2.Count-1 do
begin
T:=explode(',',F2[i]);
F.Add(T[0]);
F.Add(T[1]);
end;
F2.Free;
end;
das sollte alle Namen aus zwei Dateien holen, wenn die beide folgendes Format haben:
Name 1,Name 2
und danach in F stehen
Die zufällig auslesen geht so:
EditX.Text:=F[Random(F.Count)];