Hallo miteinander,
ich habe ein Problem mit der Darstellung und Ausführung eines Meldungsfensters(Delphi Prof.2005).
Folgender Sinn:
Ich möchte eine Datei speichern.
Wenn ich den Namen unter >>Dateiname<< eingetragen habe, sollte er überprüfen, ob der Name der Datei schon existiert.
Wenn ja, dann sollte er ein MessageDialog- Fenster mit Warnmeldung ausgeben und auf Bestätigung des JA- Buttons das Speichern durchführen.
Der Fehler wird schon in der Zeile "...=mrYes" angezeigt. Ich kann das Programm nicht starten. Wie muss ich den Code verändern?
Vielleicht hat von euch jemand einen hilfreichen Rat.
Delphi-Quellcode:
procedure TForm1.Button1_SpeichernClick(Sender: TObject);
var
Messwert: TLeistung;
i,anzahl: integer;
Datei: TDatei;
Dateiname: string;
begin
Savedialog1.Execute;
Dateiname:= Savedialog1.FileName;
AssignFile(Datei,Dateiname);
if FileExists(Dateiname) then
MessageDlg
('Der Dateiname ist bereits vorhanden! Soll dieser überschrieben werden!',
mtWarning,[mbYes,mbNo,mbCancel],0)=mrYes;
begin
Rewrite(Datei);
anzahl:=StrToInt(Edit3_Eingabe_anzahl.Text);
for i:= 1 to anzahl do
with Messwert do
begin
nr:= i;
Spannung:= StrToFloat(StringGrid1.Cells[1,i]);
Strom:= StrToFloat (StringGrid1.Cells [2,i]);
Write (Datei,Messwert);
lx:= StrToInt (Edit1_lx_eingabe.Text);
end;
CloseFile (Datei);
end;
Herzlichen Dank im Voraus
Technikus