Hallo,
angenommen ich habe TStringlist abgeleitet und möchte nun eine RichEdit-Komponente mit diesem abgeleiteten TStringlist-Objekt laufen lassen. Dann habe ich das natürlich vorab auch noch dem RichEdit mitzuteilen. Nur wie? Reicht da eine einfache Zuweisung ala
RichEdit1.Lines := MyOwnLines;
hierfür aus? Denn irgendwie habe ich das Gefühl, dass die von mir überschriebenen Methode gar nicht besucht wird. Habe dort einen Breakpoint gesetzt (und ein Beep), aber der Debugger stoppt da nicht (Beep ist auch nicht zu hören).
Hier event. nochmal die Ableitungsformalismen:
Delphi-Quellcode:
type
TOStrings = class(TStringList)
public
procedure LoadFromStream(Stream: TStream); override;
end;
procedure TOStrings.LoadFromStream(Stream: TStream);
var
Size: Integer;
S: string;
begin windows.beep(1000,30);
BeginUpdate;
try
Size := Stream.Size - Stream.Position;
SetString(S, nil, Size);
Stream.Read(Pointer(S)^, Size);
SetTextStr(S);
finally
EndUpdate;
end;
end;
Den Code für die LoadFromStream-Methode habe ich hierfür aus der Classes-
Unit herauskopiert.
Thx schonmal im Voraus.