Procedurbezeichnung

**bernau**

Delphi-Quellcode:

			  Arbeitsverzeichnis:=ExtractFileDir(WorkingFileName);

  Vergleichsverzeichnis:=ExtractFileDir(EineAndereDatei);

  result:=comparetext(Arbeitsverzeichnis,Vergleichsverzeichnis)=0;

markieren

Delphi-Quellcode:

			  CurrentDirectory:=ExtractFileDir(WorkingFileName);

  DefinedDirectory:=ExtractFileDir(EineAndereDatei);

  result:=comparetext(CurrentDirectory,DefinedDirectory)=0;

No soo schlimm ist das auch nicht.

Gruß
K-H

Es ging darum, daß r2c2 einen "Dreizeiler" einem "Einzeiler" vorzieht.

Wenn schon dann:

markieren

Delphi-Quellcode:

			  CurrentDirectory:=ExtractFileDir(WorkingFileName);

  DefinedDirectory:=ExtractFileDir(EineAndereDatei);

  result:=comparetext(CurrentDirectory,DefinedDirectory)=0;

markieren

Delphi-Quellcode:

result:=comparetext(WorkingFileDir,EineAndereDateiDir)=0;

Ich finde die zweite Variante, ohne die vorherige zuweisung auf Variablen, besser.

Procedurbezeichnung

AW: Procedurbezeichnung

Forumregeln