alle .ini datei in einem bestimmten ordner auflisten

[joel93]

Ich möchte alle .ini Dateien die in einem Unterorder im Programmverzeichniss sind in einer listbox mit einem namen der sich aus zwei Werten aus der entsprechenden .ini zusammenstellt (z.B. Max Mustermann) auflisten! :coder:

Ich da schon was in der lib gesehen, aber so richt hab ich's nich kapiert.. :gruebel:

Hat da einer nen Code, oder so was? :wiejetzt:

[EDatabaseError]

Also du möchtest einen Ordner nach .ini dateien durchsuchen...

FindFirst
FindNext

Mfg
Tobi

[Balu der Bär]

Da ich heute gute Laune habe:

Delphi-Quellcode:

function ListIniFiles(Box : TListbox) : Boolean;
var
 LStrList: TStringlist;
 LPfad: String;
 LSearchRec: TSearchRec;
begin
 LPfad := ExtractFilePath(ParamStr(0)) + '\unterverzeichnis_des_ordners\';
 Box.Items.Clear;
 LStrList := TStringlist.Create;
 if FindFirst(LPfad + '*.ini', faAnyFile, LSearchRec) = 0 then
  begin
   repeat
    if LSearchRec.Attr and faDirectory = 0 then
     begin
      Box.Items.Add(LSearchRec.Name);
     end;
   until FindNext(LSearchRec) <> 0;
   FindClose(LSearchRec);
  end;
 LStrList.Free;
end;

Aufruf:

Delphi-Quellcode:

ListIniFiles(Listbox1);

[joel93]

Delphi-Quellcode:

   FindClose(LSearchRec);

Macht Problems:
[Fehler] Inkompatible Typen: 'Cardinal' und 'TSearchRec'

Wenn ichs komplett wegmach kommt:
[Warnung] Rückgabewert der Funktion 'ListIniFiles' könnte undefiniert sein

:wiejetzt:

[DGL-luke]

der rückgabewert wird ja auhc nirgends zugewiesen.... das mitm findclose is aber komisch, das sollte eigentlich so gehen.

[Balu der Bär]

Zitat:

Zitat von joel93

Delphi-Quellcode:

   FindClose(LSearchRec);

Macht Problems:
[Fehler] Inkompatible Typen: 'Cardinal' und 'TSearchRec'

Hm, sehr komisch, ich kann das mit Delphi 2006 einwandfrei kompilieren, geht 1a.

Das Zweite is nur ne Warnung weil ich keinen Rückgabewert der Funktion definiert habe, ist erstmal nicht weiter schlimm.

[marabu]

Hallo Pierre,

schau doch mal in diesem thread vorbei: Ordner durchsuchen

Grüße vom marabu

[Balu der Bär]

Warum, bei mir gehts fehlerfrei. :P

[Hawkeye219]

Noch eine Bemerkung zur Fehlermeldung, die in der DP schon häufiger auftauchte:
Wahrscheinlich steht die Unit Windows in der USES-Anweisung hinter der Unit SysUtils. Einfach die Reihenfolge umdrehen oder den Aufruf der Funktion qualifizieren:

Delphi-Quellcode:

SysUtils.FindClose(...)

Ich würde trotzdem marabus Link folgen.

Gruß Hawkeye

[marabu]

Tut mir leid, aber nach Beitrag #4 war bei mir nichts mehr zu sehen und dann habe ich auch noch den Falschen addressiert - mein Hinweis ging natürlich an Joel.

marabu