Vst Editieren

[youuu]

Hi,

ich möchte mein Vst vom Benutzer Editieren lassen.
Nun habe ich das Problem, das der Text nicht angenommen wird.

Ok nach etwas Googlen fand ich das OnNewText Ereignis.

Nur klappt es nicht mit dem Bespiel welches ich gefunden habe.

Delphi-Quellcode:

procedure Tfrm_History.VstHistoryNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: string);
var
  History: THistory;
begin
    History:= THistory(VstHistory.GetNodeData(node)^ );  <--- editiert
    History.txt[Column-1]:= NewText;          <--- der linken Seite kann nichts zugewiesen werden
end;

[mkinzler]

Implementiere einen Editor

[youuu]

Wie?

[DeddyH]

Wie ist denn THistory deklariert?

[youuu]

Delphi-Quellcode:

type
  THistory = class

  private
    Fid: string;
    Fkd: string;
    Ftxt: string;
    Fdate: string;
    Fbearbeiter: string;
  public
    property kd: string  read Fkd write Fkd;
    property txt: string  read Ftxt write Ftxt;
    property date: string  read Fdate;
    property id: string  read Fid write Fid;
    property bearbeiter: string  read Fbearbeiter write Fbearbeiter;

    function deleteHistory(id: string): Boolean;

    procedure UpdateHistory;
    procedure InsertHistory;
  end;

[DeddyH]

Du versuchst einen String in einen Char zu schreiben?

[youuu]

Ich möchte lediglich ein Editbares Vst haben.
Wo schreibe ich dort einen String in einen Char?

[DeddyH]

Zitat:

Delphi-Quellcode:

History.txt[Column-1]:= NewText;

txt ist eine String-Property, wenn ich das richtig gesehen habe.

[youuu]

ja richtig und "newText" doch auch?

[DeddyH]

Ja eben, ein einzelnes Element eines String ist nunmal ein Char, da geht kein String rein.