Naja, gibt ja tausende von Möglichkeiten das zu lösen. Eine Lösung wäre, das TMemo abzuleiten und den Dateinamen beim Laden und Speichern zwischenzuspeichern. Beispiel:
Delphi-Quellcode:
TMyMemo = class (TMemo)
private
FFileName: String;
public
procedure LoadFromFile(const AFileName: String);
procedure SaveToFile(const AFileName: String);
property FileName: String read FFileName write FFileName
end;
Implementierung der Methoden:
Delphi-Quellcode:
procedure TMyMemo.LoadFromFile(const AFileName: String);
begin
Self.Lines.LoadFromFile(AFileName);
FFileName:= AFileName;
end;
procedure TMyMemo.SaveToFile(const AFileName: String);
begin
Self.Lines.SaveToFile(AFileName);
FFileName:= AFileName;
end;
Speichern:
Delphi-Quellcode:
if FActiveMemo.FileName <> '') then
begin
FActiveMemo.SaveToFile(FActiveMemo.FileName);
Saved := True;
ShortFn := ExtractFilename(Fn);
SetCompleteCaption;
TBXStatusBar1.Panels[3].Caption := '';
end else
begin
TBXItem3Click(self);
TBXItem2.Enabled := False;
TBXItem42.Enabled := False;
TBXStatusBar1.Panels[3].Caption := '';
end;
Gruß,