nachricht kommt imemr wieder wenn man auf ja klickt

[Nicodius]

Delphi-Quellcode:

 if Speech = 'Deutsch' then
  begin
    if MessageDlg('Wollen Sie speichern?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      if Panel1.caption <> 'KEIN NAME     Bitte ändern Sie die Projekteinstellungen' then
      begin
        ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Projects\' + Panel1.caption);
        Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Projects\' + Panel1.caption + '\Site1.html')
      end
      else Showmessage('Bitte F2 drücken');
      for i := VWert downto 0 do
        DeleteFile(ExtractFilePath(ParamStr(0)) + 'Vorschau\' + 'Vorschau' + IntToStr(i) + '.html');
      if (Panel1.caption <> 'Click for settings or press F2') or (Panel1.caption <> 'Click for settings or press F2') or (Panel1.caption <> 'Click for settings or press F2') then Close;
    end
    else
    begin
      for i := VWert downto 0 do
        DeleteFile(ExtractFilePath(ParamStr(0)) + 'Vorschau\' + 'Vorschau' + IntToStr(i) + '.html');
    end;
  end;
  if Speech = 'Englisch' then
  begin
    if MessageDlg('Do you like to save before?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      if Panel1.caption <> 'NO NAME        Please change the name of the project' then
      begin
        ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Projects\' + Panel1.caption);
        Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Projects\' + Panel1.caption + '\Site1.html')
      end
      else Showmessage('Please press F2');
      for i := VWert downto 0 do
        DeleteFile(ExtractFilePath(ParamStr(0)) + 'Vorschau\' + 'Vorschau' + IntToStr(i) + '.html');
      if (Panel1.caption <> 'Click for settings or press F2') or (Panel1.caption <> 'Click for settings or press F2') or (Panel1.caption <> 'Click for settings or press F2') then Close;
    end
    else
    begin
      for i := VWert downto 0 do
        DeleteFile(ExtractFilePath(ParamStr(0)) + 'Vorschau\' + 'Vorschau' + IntToStr(i) + '.html');
    end;
  if Speech = 'Französisch' then
  begin
    if MessageDlg('stocker voulez-vous?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      if Panel1.caption <> 'de NOM vous ne modifiez pas une demande les réglages de projet' then
      begin
        ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Projects\' + Panel1.caption);
        Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Projects\' + Panel1.caption + '\Site1.html')
      end
      else Showmessage('Veuillez serrer le F2');
      for i := VWert downto 0 do
        DeleteFile(ExtractFilePath(ParamStr(0)) + 'Vorschau\' + 'Vorschau' + IntToStr(i) + '.html');
      if (Panel1.caption <> 'Click for settings or press F2') or (Panel1.caption <> 'Click for settings or press F2') or (Panel1.caption <> 'Click for settings or press F2') then Close;
    end
    else
    begin
      for i := VWert downto 0 do
        DeleteFile(ExtractFilePath(ParamStr(0)) + 'Vorschau\' + 'Vorschau' + IntToStr(i) + '.html');
    end;
  end;

--> beim beenden vom Programm ..

Wenn man auf ja klickt soll gespeichert werden, bei nein einfach beendet werden

--> ort der speicehrung: eigener Projektordner


wo ist denn der ehelr/die fehelr