Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**marabu**

Nebenbei bemerkt - die IF-Bedingung wird nie wahr:

Delphi-Quellcode:

			repeat

  if LowerCase(ExtractFileExt(F.Name)) = '.DFP' then

    ProfileReader.ReadProfile(F.Name);

until FindNext(F) <> 0;

Grüße vom marabu

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#13 Re: Seltsame Exception 1. Nov 2005, 21:00 Nebenbei bemerkt - die IF-Bedingung wird nie wahr: markieren Delphi-Quellcode: repeat if LowerCase(ExtractFileExt(F.Name)) = '.DFP' then ProfileReader.ReadProfile(F.Name); until FindNext(F) <> 0; Grüße vom marabu
	Zitat