Hallo,
ich habe mir eine Interfacefunktion geschrieben, deren Test leider fehlschlägt. Leider habe ich überhaupt keine Idee, woran das ligen könnte.
Zum Testen habe ich die folgende Methode an SynEdit.OnChange zugewiesen:
Delphi-Quellcode:
var IEditor: TIEditReader;
//Unit EditIntf -> aus Turbo Delphi
procedure TMySynEdit.HandleChange(Sender: TObject);
begin
IEditor.GetText(SelStart,TestBuffer, SelEnd-SelStart);
ShowMessage(StrPas(TestBuffer));
end;
ShowMessage() zeigt keinen Text an
Ich erhalte auch keine
Exception, was mich vermuten lässt, das innerhalb von GetText die Instantiierung von Speicher, falls Buffer noch nicht instantiiert ist, funktioniert.
Hier die Implemetation der Methode GetText von TIEditReader:
Delphi-Quellcode:
function TIEditReader.GetText(Position: Integer; Buffer: PChar;
Count: Integer): Longint;
var
i,p: Integer;
s: String;
begin
MySynEdit.SelStart := Position;
MySynEdit.SelEnd := Position + Count;
// jetzt Text in Buffer kopieren
s := SynEdit.SelText;
p := 0;
if Assigned(Buffer) then
begin
for i:=1 to Length(s) do
begin
Buffer[p] := s[i];
inc(p);
end;
end
else
begin
Getmem(Buffer, Length(s)+1);
for i:=1 to Length(s) do
begin
Buffer[p] := s[i];
inc(p);
end;
end;
Buffer[p] := #0;
end;
Warum erhalte ich den Text nicht?
OnChange wird mit jedem Tatendruck eines Zeichens im Synedit ausgelöst, nicht erst, wenn Text selektiert wird.
Stimmt die Implementation der Methode grundsätzlich überhaupt?
Was ich bisher davon verstanden habe, holt diese Methode irgendeinen Textstream ab Anfangsposition mit Count Zeichen.
Weder wenn ich Text selektiere, noch wenn ich einfach schreibe, erhalte ich irgendeinen Text in TestBuffer.
Was muss ich anders machen?
Wenn ich Buffer im Unterschied zur Originalmethode als var Parameter deklariere, stimmt schließlich die Scnittstelle nicht mehr, oder?
Außerdem ist die Originalmethode in der Interfaceklasse eben gerade nicht als var deklariert.
.