überschreiben Meldung

Hendi48 · Beiträge: 271

Hi, ich habe mal wieder ein Problem.
Weil der Load knopf direkt über dem Save knopf ist, habe ich mich verklickt und meine INI abgeschossen.
Damit das nicht noch einmal passiert, möchte ich dass das Programm mich jedesmal warnt, das es die INI schon gibt und ob man sie überschreiben will.
Ich habe leider noch nie eine Meldung anzeigen lassen und weiß nicht wo die Funktion hinkommt.
Ich weiß nur das da irgendwie Messagedlg, Mryes und Mrcancel dadrin vorkommt
Kann mir jemand helfen? :?:

GTA-Place · Verfasst: Mi 25.04.07 19:01

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  Ret: Integer;
begin
  Ret := mrYes;

  if FileExists('...') then
    Ret := MessageDlg('Überschreiben?', mtConfirmation, [mbYes, mbNo], 0);

  if (Ret = mrYes) then
  begin
    // Überschreibe
  end;
end

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Hendi48 · Beiträge: 271

danke für die schnelle Antwort aber jetz kommt: ; expected but 'VAR' found

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Save1Click(Sender: TObject);
var
  Ret: Integer;
begin
  Ret := mrYes;


  if FileExists('C:\Users\Hendrik\plan.ini') then
    Ret := MessageDlg('Überschreiben?', mtConfirmation, [mbYes, mbNo], 0);


  if (Ret = mrYes) then
  begin
    // Überschreibe
  end;
 end
var
  Ini: TIniFile;
begin
try
    Ini:=TIniFile.Create('C:\Users\Hendrik\plan.ini'); //Vista-Pfad
    Ini.WriteString('Bereich1','Schlüssel1',Edit1.text);
   //usw.

Saubäär · Beiträge: 376

Tja du, da würd ich die Variable mal ganz fix da deklarieren, wo sie hin gehört!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Save1Click(Sender: TObject);
var
  Ret: Integer;
  Ini: TIniFile;
begin
  Ret := mrYes;
...

Gruß

Hendi48 · Beiträge: 271

ok, vielen dank für die hilfe, es geht jetzt!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme