|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
18. Jun 2003, 23:14
Moin Trouble Maker,
schreib's doch so:
Delphi-Quellcode:
// Was vorher noch passieren muss/soll
//...
// Prüfen ob erster Aufruf
if not regist.ValueExists('1Aufruf') then begin
// Wenn nicht, dann Meldung zeigen, und
// Wert schreiben, der ein erneutes Verzweigen in diesen
// Pfad unterbindet
regist.WriteInteger('1Aufruf', 1);
end;
//...
// Und hier, was sonst noch alles im OnCreate passieren soll
Beim nächsten Programmstart existiert der Wert und die Meldung wird nicht mehr angezeigt.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|