Forum: Object-Pascal / Delphi-Language
by Bjoerk,
16. Apr 2011
Klaus, ich meinte, ob das Applicationsweit gilt, auch z.B. dann, wenn Komponenten, die modale Ereignisse sind und den gleichen initialization Abschnitt benutzen. Wird der dann bei Komp.Execute nocheinmal ausgeführt? Kann ich aber auch durch ein einfaches Showmessage im initialization Abschnitt selbst testen.
Auf alle Fälle erst mal ein kräftiges Dankeschön für deinen Support, auch an...
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
15. Apr 2011
besser ist das:
function TStrIniFile.isFileReadyForRW: boolean;
begin
if UpperCase(FileName)=UpperCase(inUseReadFileName) then
begin
repeat until inUseReadFileName='';
end;
if UpperCase(FileName)=UpperCase(inUseWriteFileName) then
begin
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
15. Apr 2011
vorübergehend habe ich es jetzt erst mal so geändert:
implementation
var
inUseReadFileName: string='';
inUseWriteFileName: string='';
function TStrIniFile.isFileReadyForRW: boolean;
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
15. Apr 2011
Hi Philip, war eine Verzweiflungstat für Give another Process a chance.
Klaus, funktioniert das auch noch bei Komponenten, die werden u.U. zur Laufzeit schon free und benutzen das selbe initialization/finalization wie die Formulare.
Forum: Object-Pascal / Delphi-Language
by Bjoerk,
15. Apr 2011
Die folgende Routine ist Bestandteil eines iniFile Parsers. SaveFile ist gelegentlich (!?) false. Ich suche schon seit Wochen, in den Apps kann ich jedoch keine Fehler entdecken. Dateien vom Typ TStrIniFile werden procdure intern vereinbart, erzeugt und freigegegen. Bei free wird ggf. SaveToFile aufgerufen. Ich bin mir sicher, daß innerhalb von TStrInfile kein Fehler ist.
function...