Forum: Object-Pascal / Delphi-Language
Delphi
by Brainshock,
19. Mai 2008
Der Typ der Variable FActiveMemo muß jetzt FMyMemo sein, wie auch deine Memos im PageControl, dann sollte er FileName auch kennen.
private
FActiveMemo: TMyMemo;
...
end;
Wie fügst du neue Seiten dem PageControl2 hinzu?
Forum: Object-Pascal / Delphi-Language
Delphi
by Brainshock,
19. Mai 2008
Also, du leitest deine Memoklasse ab und fügst eine neue Eigenschaft FileName hinzu, siehe Quellcodeausschnitt 1 und 2 aus dem vorherigen Post. In der Eigenschaft wird der jeweilige Dateiname des Memoinhalts gespeichert, Ersatz für dein fn.
In deiner Speichernfunktion kontrollierst du über FActiveMemo.FileName <> '', ob das Memo schon in einer Datei gespeichert wurde. Ist der Wert der...
Forum: Object-Pascal / Delphi-Language
Delphi
by Brainshock,
19. Mai 2008
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:
TMyMemo = class (TMemo)
private
FFileName: String;
public
procedure LoadFromFile(const AFileName: String);
procedure SaveToFile(const AFileName: String);
property FileName: String read FFileName write FFileName
Forum: Object-Pascal / Delphi-Language
Delphi
by Brainshock,
19. Mai 2008
Setze beim Wechsel einfach eine private globale Variable, in der du einen Verweis auf das aktive Memo hast.
private
FActiveMemo: TMemo;
...
end;