Alle Textdateien eines Ordners öffnen!

[Martin.Ghosts]

Hallo,

ich bin absoluter Neuling in Sachen Programmieren (erst seit einem halben Jahr hab ich es in der Schule). Nun hätte ich mal ne Frage, bei der mir auch mein Info Lehrer nicht weiterhelfen kann (es wird sowieso gesagt, dass er nicht so viel Ahnung hat).

Das Problem:
Ich habe einen Ordner mit Textdateien. Alle Inhalte der Textdateien (je nur eine Zeile) sollen in einer ComboBox ausgegeben werden. Die Namen und die Anzahl der Textdateien ist dabei unbekannt. Ich würde mich freuen, wenn möglichtst schnell eine Antwort kommen würde.

Danke schon mal im Vorraus, Martin

[GuenterS]

Hm such mal nach

FindFirst
Um Dateien zu finden.

Um sie zu lesen
AssignFile
Readln

Insbesondere könnte Dich dieser Thread intressieren


Wirst sicher was hilfreiches finden, denk ich.

[Martin.Ghosts]

Für den Anfang erst mal danke, dass muss ich mir jetzt aber erst mal anschauen :)

[robinWie]

Wenn du mit einer Filelist arbeitest kannst du mit einer For-Schleife die Liste durchlaufen und alle Dateien öffnen.

[SirThornberry]

du kannst auch einfach eine Stringlist zum laden nehmen und dann Stringlist.Text der Combobox hinzufügen.

Delphi-Quellcode:

var LStrList: TStringlist;
    LPfad: String;
    LSearchRec: TSearchRec;
begin
  LPfad := 'e:\';
  Combobox1.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);
        Combobox1.Items.Add(LStrList.Text);
      end;
    until FindNext(LSearchRec) <> 0;
    FindClose(LSearchRec);
  end;
  LStrList.Free;

[Martin.Ghosts]

So, das hat mit einem Testordner erst mal geklappt. Was muss ich aber jetzt machen, wenn der Ordner auf der Ebene(?) der exe Datei liegt, diese also an einem beliebigen Ort auf meiner Festplatte vorhanden ist (ich weiß also nicht, wo der Ordner, aus dem die Textdateien ausgelesen werden, liegt)?

[GuenterS]

Naja das musst Du irgendwo angeben können, vielleicht als Parameter oder in einem Edit Feld.

Hellsehen wird Dein Programm ja nicht können müssen (hoffe ich halt)

[Martin.Ghosts]

Jetzt funktioniert alles :-D , bis auf das Problem, dass hinter den in der ComboBox angezeigten Texten noch je zwei Balken sind. An dieser Stelle vielen Dank für eure Hilfe. :hi:

[SirThornberry]

wenn du die zwei kästen weg haben willst dann machs so:

Delphi-Quellcode:

LStrList.LoadFromFile(LPfad + LSearchRec.Name); 
if LStrList.Count > 0 then
  Combobox1.Items.Add(LStrList.Strings[0]);

und wenn die dateien aus dem gleichen ordner sind mache aus

Delphi-Quellcode:

LPfad := 'e:\';

einfach

Delphi-Quellcode:

LPfad := ExtractFilePath(Application.ExeName);