Hänge gerade an einer eigendlich Billigen Abbruchbedingung für eine If then else schleife
Geplant ist der Befehl
Code: Alles auswählen
Break;
Code: Alles auswählen
asm
nop
end;
zusammengefasst schaut das nun wie folgt aus...
Code: Alles auswählen
procedure TForm1.MenuItem4Click(Sender: TObject);
begin
if SaboSymLogFile = '' then
begin
if MessageDlg('Keine Systemlogfile Gefunden.' + #13 + 'Bitte erstellen oder laden Sie eine!!!', mtWarning, mbOkCancel, 0) = mrOK then
begin
if MessageDlg('Erstellen Sie unbedingt eine LOG-File, ' + #13 + 'um weiterzufahren!!!', mtError, [mbOK], 0) = mrOK then
asm
nop
end;
end
else MenuItem3.Click;
end
else
begin
Form2.Conf[2, 1] := _set;
form2.ShowModal;
end;
end;
Hier nun die Erklärung der Funktion.
Wenn eine Steuerfile vorhanden ist, soll form2 gesteuert und gezeigt werden. Gesteuert im sinne, eines Selbsterstellendes Formular
andernfalls soll erst eine Warnung und anschliesend eine Direkter Fehler gemeldet werden. Ergo der Benutzer soll gezwungen werden, eine Steuerfile anzulegen und/oder zu öffnen.
Für allternativen bin ich offen, solange der Kern nicht verändert wird.
mfg und schönes verlängertes WE Maik