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;