Moin,
der Fehler ist ein fehlender Block beim ersten IF-Statement in Button3Click.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
_var_;
if RadioButton1.Checked then
begin
code;
l1;
MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0);
ProgressBar2.Position := 0;
end;
if RadioButton2.Checked then
// ...
end;
Die pauschale Entfernung von Form1 führt zu Problemen in den nicht objekt-gebundenen Funktionen und Prozeduren. Entweder man macht diese zu Methoden der Form (hier empfehlenswert) oder man übergibt Parameter um globale Zugriffe zu vermeiden.
Delphi-Quellcode:
type
TForm1 = class(TForm)
// ...
private
procedure l;
end;
// ...
procedure TForm1.l;
begin
with ProgressBar1 do
Position := Position + 1;
end;
Freundliche Grüße