Problem beim Speichern!

[rayjray]

Also mein Problem ensteht bei folgendem Versuch zu Speichern...

Ich öffne mein Texteditor und schreibe....kann es abwer nicht Speichern!

Ich muss erst einmal auf Neu klicken damit ich es Speichern kann.
Ich geb euch mal ein Auszug von dem Code...

Delphi-Quellcode:

procedure TForm1.DateiNeuExecute(Sender: TObject);
begin
RichEdit1.Clear;
FileName := 'NoName.txt';
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
FileName := FileOpen1.Dialog.FileName;
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.DateiSpeichernExecute(Sender: TObject);
begin
If (FileName = 'NoName.txt') then
      FileSaveAs1.Execute
else
    RichEdit1.Lines.SaveToFile(FileName);
end;

Das hat doch bestimmt was mit dem StatusPanel zu tun oder nicht?
Denn erst beim Neu anklicken steht auch was in der Statusleiste!??!
Vorher nicht.

[alcaeus]

Hi rayjray,

dann will ich mal wieder helfen :zwinker:
Versuch mal im OnCreate des Forms, FileName auf 'NoName.txt' zu setzen. Wahrscheinlich ist die Variable leer, und deshalb greift die if-Abfrage mit NoName.txt nicht.

Greetz
alcaeus

[rayjray]

Danke mein Freund....bist wie immer eine Super Hilfe!!!

War genauso wie du sagtest... :mrgreen:


Thread Beendet!