Fehlermeldung bei Schreiben nach CSIDL_APPDATA

Thema durchsuchen

Ansicht

Themen-Optionen

Fehlermeldung bei Schreiben nach CSIDL_APPDATA

Ein Thema von Bjoerk · begonnen am 15. Apr 2011 · letzter Beitrag vom 16. Apr 2011

Vorheriger Beitrag

Nächster Beitrag

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge

Delphi 10.4 Sydney

#13

AW: Fehlermeldung bei Schreiben nach CSIDL_APPDATA

15. Apr 2011, 21:42

besser ist das:

zusammenfalten · markieren

Delphi-Quellcode:

			function TStrIniFile.isFileReadyForRW: boolean;

begin

  if UpperCase(FileName)=UpperCase(inUseReadFileName) then

  begin

    repeat until inUseReadFileName='';

  end;

  if UpperCase(FileName)=UpperCase(inUseWriteFileName) then

  begin

    repeat until inUseWriteFileName='';

  end;

  RESULT:=true;

end;