|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Procedurbezeichnung
15. Sep 2011, 17:18
Delphi-Quellcode:
Arbeitsverzeichnis:=ExtractFileDir(WorkingFileName);
Vergleichsverzeichnis:=ExtractFileDir(EineAndereDatei);
result:=comparetext(Arbeitsverzeichnis,Vergleichsverzeichnis)=0;
Delphi-Quellcode:
CurrentDirectory:=ExtractFileDir(WorkingFileName);
DefinedDirectory:=ExtractFileDir(EineAndereDatei);
result:=comparetext(CurrentDirectory,DefinedDirectory)=0;
No soo schlimm ist das auch nicht.
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|