Procedure so umbauen dass diese für dan ganze ordner gilt
Hallo,
ich habe folgenden Quellcode:
Delphi-Quellcode:
Nun würde ich gerne diese Procedure so schreiben, dass ich oben einen Ordnerpfad angeben kann und er alle dateien (Jetzt nur eine also: code) bearbeitet. So sollte der Procedurkopf aussehen:procedure Indizieren(Status:TListbox;Code:Tstringlist); var Index:Tstringlist; pfad:String; i,v:integer; begin Index:=Tstringlist.create; Pfad:=ExtractFilePath(ParamStr(0)); Index.LoadFromFile(Pfad+'\Comp\Index01.ind'); Status.Items.Add('Pfade wurden intilaisiert..'); formatcode(code); for i:=0 to code.Count-1 do begin if Uppercase(code[i])=Uppercase('Inputoptions') then begin Status.Items.Add('Inputsection gefunden!'); v:=i; while Uppercase(code[v+1])<>Uppercase('Inputoptions end') do begin v:=v+1; Index.Add(code[v]); Status.Items.Add('Hinzugefügt: '+code[v]); end; end; end; Index.SavetoFile(Pfad+'\Comp\Index01.ind'); index.Free; end;
Delphi-Quellcode:
procedure Indizieren(Status:TListbox;Orderpfad:String);
Index liegt immer im gleichen Pfad. Die Dateien haben die Endung *.les. Nun könnte man das mit einer Filelistbox machen aber ich möchte das ganze ohne Komponente gestalten. Habt Ihr eine Idee? Danke für die Hilfe!!! |
Re: Procedure so umbauen dass diese für dan ganze ordner gil
Such mal nacht FindFirst
|
Re: Procedure so umbauen dass diese für dan ganze ordner gil
Hallo, danke für deine schnelle Antwort.
Ehm Findfirst von was? Danke! |
Re: Procedure so umbauen dass diese für dan ganze ordner gil
in diesem Thread findest Du Beispiele dazu.
Ansonsten die Delphi Hilfe ist in dem Punkt auch nicht so schlecht. Grüße Klaus |
Re: Procedure so umbauen dass diese für dan ganze ordner gil
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz