Nur 1. Zeile laden

[Martin.Ghosts]

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

[marabu]

Hallo Martin,

ist zwar alles sehr unkonventionell, aber vielleicht reicht dir ja schon eine kleine Änderung:

Combobox2.Items.Add(LStrList[0]); // nur die erste Zeile! Grüße vom marabu

[himitsu]

Dat sollte es sein, dann Combobox2.Items.Add(LStrList.Text) fügt ja schließlich immer den gedsammten Inhalt von LStrList hjinzu und nicht nur die 1. Zeile

Ansonsten würdes du bestimmt auch besser kommen, wenn du nur mit AssignFile, Reset und ReadLn die erste Zeile ausliest, denn mit 'ner StringList liest du ja immer die komplette Datei ein, selbst wenn du dann nur die 1. Zeile verwendest.

[Martin.Ghosts]

Ja, das hat geholfe, vielen Dank.

[jim_raynor]

Ich würde es lieber mit AssignFile und ReadLn und TextFile machen. Hat den Vorteil, dass es wesentlich schneller geht, da nicht die gesamte Datei immer geladen wird.

[ichbins]

So:

Delphi-Quellcode:

var
  t:textfile;
  s:string;
begin
  assignfile(t,DATEINAME);
  filemode:=0;
  reset(t);
  readln(t,s);
  closefile(t);
  combobox1.items.add(s);
end;