Hallo
der Programm läuft unter WinXP einwandfrei, aber unter Win98 bekommt man eine Zugriffsverletzung nach dem Klicken auf dem Button!
Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
var applpath:String;
begin
applpath := extractfilepath(application.ExeName);
if MessageDlg('blabla',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
if Length(edit1.Text) = 5 then
begin
Form1.ListBox2.Items.Clear;
Form1.listbox2.Items.Add(edit1.Text);
Form1.listbox2.Items.SaveToFile(applpath + 'log.txt');
Form1.Label2.Caption:=edit1.Text;
close;
end
else
messagedlg('blabla',mtInformation,[mbok],0);
end;
end;
Kann jemand mir helfen? Danke !!