Entwickler-Ecke

Sonstiges (Delphi) - Einmalige Abfrage beim Programmstart


Crazymodder - Sa 06.01.07 19:35
Titel: Einmalige Abfrage beim Programmstart
Hallo ich hoffe Ihr könnt mir helfen schaffe habs ja selber fast geschafft doch ich komm jetzt nicht weiter!
Also ich will bevor mein Hauptprogramm startet ein Fenster(Neue Form) erscheinen lassen wo ich sone Art Disclaimer einbauen will. unten soll dann via check box der aufruf dieses Fensters beim nächsten Start unterdrückt werden!
Ich habs so probiert:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
procedure CheckBox1.........
if CheckBox.checked then begin
memo1.Lines.Add('Test') nur weil ich lieber ab 1 anfange zu zählen da delphi ja 0 Zähler
memo1.Lines.Add('true')
end
else
memo1.Lines.Add('false');
memo1.Lines.SaveToFile(C:\Check.non);
memo1.Lines.clear;

procedure Form2.create.....
if fileexists(C:\Check.non') then begin
memo2.Lines.LoadFromFile(C:\Info.non);
end;
if ein = '
true' then begin
Form2.Hide;
Form1.Show;


Naja oben hab ich halt definiert das in der ersten zeile steht das ein in der 1sten Zeile steht

Also wäre sehr dankbar wenn jmd mein Problem lösen könnte mir ist egal wie ich bin auch froh über andere Varianten.
Wäre net mit kleinem Quelltexausschnitt.
Habe meien Quelltext gepostet damit ihr seht ich habs probiert naja also danke im Vorruas
mfg.
Crazymodder

Moderiert von user profile iconGausi: Delphi-Tags hinzugefügt


Saubäär - Sa 06.01.07 20:52

Hi Crazymodder,

der Ansatz ist ja schon ganz ok. Ich weiß nicht genau, wo dein Problem liegt, aber ich hätts mit ner *.ini - Datei gemacht.
Ein gutes Tutorial dazu findest du auf http://www.dsdt.info/
und dann nen Wert per if- Abfrage abfragen wie du es schon getan hast und das Form2 anzeigen oder eben nicht.

Gruß

Saubäär


Delete - Sa 06.01.07 21:08

hey crazy,

warum machst du es nicht so, wenn deine datei bereits existiert, dann wurde mal draufgedrückt, sonst noch nicht. so kannste irgendwas da reinschreiben, zur verwirrung der römer... ;-)

<HTH>

PS: in diesem fall, hast ja schon alle nötigen befehle unten aufgeführt..