String aus SynEdit wird nicht übernommen, warum?

[schöni]

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.


.