CSV auslesen in EDIT eintragen

[glkgereon]

Zitat von Knotti2005:

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.

Delphi-Quellcode:

var F, F2: TStringList; 
    i, ID:Integer; 
begin 
  F:=TStringList.Create;    //Datei 1
  F.LoadFromFile('Datei'); 
  F2:=TStringList.Create;   //Datei 2
  F2.LoadFromFile('Datei2'); 
  F.AddStrings(F2);         //Zusammenführen
  F2.Free;   //Datei 2 kann weg
  for i:=1 to 6 do //für 6 Edits
    begin
    ID:=Random(F.Count);  //Index raussuchen
    TEdit(FindComponent('Edit'+IntToStr(i))).Text:=F[ID]; //Text in Edit
    F.Delete(ID);  //Text auf SL löschen
    end;
  F.Free;
end;