Hallo,

wenn ich die INI-Datei lösche dann erscheint Form4 zu früh !
Ja ich weiß, wenn ich die ini Datei lösche, dann hat automatisch die variable
s1 den Wert 0
und wenn s1 = 0 ist dann soll die Form4 erscheinen
Aber sie erscheint zu früh. Vor dem Klick auf Button1 !!!

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Not FileExists('test.ini') then
S1:='0';
  if Get_File_Size(ParamStr(0),True) <> S4 then

      BEGIN
      Form4.Show;
    end
  else
    ...
    end;
end;

ist bei Form4 das Visible (im OI) auf True?

Ganz einfach. Das hier ist größer 10 :
if StrToInt(Get_File_Size(ParamStr(0),True)) - strToInt(S4) > 10 > 10 = "größer als 10"

Zitat von himitsu:

ist bei Form4 das Visible (im OI) auf True?

Nein, alle forms Visible : false;
sehe meine Update oben (onshow)

Zitat von Hansa:

Ganz einfach. Das hier ist größer 10 :
if StrToInt(Get_File_Size(ParamStr(0),True)) - strToInt(S4) > 10 > 10 = "größer als 10"

Es liegt nicht daran
ich habe auch so ausprobiert :
if StrToInt(Get_File_Size(ParamStr(0),True)) - strToInt(S4) <> then ...

Im OnShow ist hinterlegt, dass Form4 erscheinen soll, wenn die INI nicht gefunden wird! Wieso sollte das erst geschehen, wenn du auf den Button drückst? Wenn das IMMER erst nach dem Button-Druck geschehen soll, dann nimm doch einfach den else-Zweig aus OnShow heraus - oder habe ich das jetzt völlig missverstanden?

Das stimmt
das Problem gelöst
der Code versteckte im Onshow

velmi dobre!

Zitat von taaktaak:

velmi dobre!

Was heißt denn das ? Ja ich weiß : suchen. Die Frage scheint ja ansonsten klar zu sein.

Moin, Moin.
Sorry, hatte mich gerade mit einer ausländischen Bekannten unterhalten, da habe ich nicht auf die richtige Sprache umgeschaltet. Wollte sagen: Sehr gut!