Hallo,
Bei mir tritt folgendes Problem auf. Ich habe eine unbekannte Anzahl an txtdateien, die in eine ComboBox geladen werden.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var LStrList: TStringlist;
LPfad: String;
LSearchRec: TSearchRec;
begin
begin
LPfad:='Name\';
Combobox2.Items.Clear;
LStrList:=TStringlist.Create;
if FindFirst(LPfad +'*.txt', faAnyFile, LSearchRec) = 0 then
begin
repeat
if LSearchRec.Attr and faDirectory = 0 then
begin
LStrList.LoadFromFile(LPfad + LSearchRec.Name);
Combobox2.Items.Add(LStrList.Text);
end;
until FindNext(LSearchRec) <> 0;
FindClose(LSearchRec);
end;
LStrList.Free;
end;
end;
Das funktioniert auch soweit. Wie kann ich es schaffen, dass nur die erste Zeile geladen wird? Bei mir werden immer noch zwei senkrechte Balken angezeigt, ich vermute mal dass das ein Zeilenumbruch ist.
Danke schon mal, Martin.Ghosts