Durchsuchen von Dateien

[Johannes013]

Danke. Jetzt hat's gefunkt.

:dancer2:


Johannes

[markus5766h]

Zitat:

Zitat von Luckie

Zitat:

Zitat von markus5766h

Dein Programmverzeichnis bekommst Du mit

Delphi-Quellcode:

var
p : array[0..512] of Char;
begin
ProgDir := StrPas(GetCurrentDirectory(512, P));
.
.
.
end;

Wie oft denn noch. GetCurrentDirectory liefert nicht das anwendungsverzeichnis, sondern das aktuelle Verzeichnis. Das kann das Anwendungsverzeichnis sein, muss aber nicht.

Den Pfad inklusive Name der Exe-Datei bekommt man mit ParamStr.

O.K.
GetCurrentDirectory funktioniert nur korrekt im Ereignis On Create, da sich
im weiteren Programmverlauf das aktuelle Arbeits-Verzeichnis ja schon geändert
haben kann

[mkinzler]

Zitat:

O.K.
GetCurrentDirectory funktioniert nur korrekt im Ereignis On Create, da sich
im weiteren Programmverlauf das aktuelle Arbeits-Verzeichnis ja schon geändert
haben kann

Kann dann auch schon falsch sein. Z.B. wenn über Verknüpfung gestartet wird, in welcher ein anderes Arbeitsverzeichnis vorgegeben ist

[markus5766h]

@ mkinzler
wenn ich eine Anwendung per Verknüpfung mit anderem Arbeitsverzeichnis starte:
zu welchem Zeitpunkt - wenn nicht nach OnCreate - wird dann dieser Parameter
verarbeitet ?

[Luckie]

Zitat:

Zitat von markus5766h

Hier mal ein Beispiel zu TIniFile:

Delphi-Quellcode:

uses IniFiles;

procedure ReadIni;
var
Ini : TIniFile;
Password : String;
begin
 Ini:= TIniFile.Create(Pfad und Dateiname);
 Password := Ini.ReadString('Password', 'PW1', 'Fehler');
 Ini.Free;
end;

procedure SaveIni;
var
Ini : TIniFile;
Password : String;
begin
 Ini := TIniFile.Create(Pfad und Dateiname);     
 Ini.WriteString('Password', 'PW1', Password);
 Ini.Free; 
end;

Ich vermisse sehnlichst die Ressourcenschutzblöcke und eine Fehlerbehandlung.

[mkinzler]

Zitat:

Zitat von markus5766h

@ mkinzler
wenn ich eine Anwendung per Verknüpfung mit anderem Arbeitsverzeichnis starte:
zu welchem Zeitpunkt - wenn nicht nach OnCreate - wird dann dieser Parameter
verarbeitet ?

Dann ist das Verzeichnis von Anfang an nicht das Verzeichnis der Exe