Warnmeldung beim Speichern einer Datei

[jim_raynor]

Kann man ganz einfach mit String-Verknüpfungen machen:

'Der '+Dateiname+' ist bereits vorhanden! Soll dieser überschrieben werden!' und richtig muss es

Delphi-Quellcode:

  if FileExists(Dateiname) then
  begin
    if MessageDlg
    ('Der Dateiname ist bereits vorhanden! Soll dieser überschrieben werden!',
     mtWarning,[mbYes,mbNo,mbCancel],0)=mrYes then
    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;
  end;