Also ich hab mir selbst geholfen...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var CSVDatei : TStringList;
begin
randomize;
CSVDatei := TStringList.Create;
CSVDatei.LoadFromFile('c:\mycdsdatei.cvs');
Edit1.Text := CSVDatei[random(CSVDatei.Count)];
Edit2.Text := CSVDatei[random(CSVDatei.Count)];
Edit3.Text := CSVDatei[random(CSVDatei.Count)];
Edit4.Text := CSVDatei[random(CSVDatei.Count)];
Edit5.Text := CVVDatei[random(CSVDatei.Count)];
Edit6.Text := CSVDatei[random(CSVDatei.Count)];
CSVDatei.Free;
end;
Nun diese Beispiel ist für nur eine Datei wie bringe ich es dazu 2 Dateien auszulesen. Die Namen sollen in die Edit Felder aber nicht doppelt erscheinen.