Forum > LCL

[SOLVED] VST Integer

<< < (3/3)

bytebites:
^Does it write (long)string correctly?

Pe3s:
This is how it correctly records

bytebites:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.VSTLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;  Stream: TStream); var    Data: pdata;   begin    Data := VST.GetNodeData(Node);     Data^.Imie:=stream.ReadAnsiString;     Data^.Nazwisko:=stream.ReadAnsiString;     Data^.Wiek:=strtoint(stream.ReadAnsiString);     Data^.Miejscowosc:=stream.ReadAnsiString;   end; procedure TForm1.VSTSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;  Stream: TStream);var  Data: PData;begin  Data := VST.GetNodeData(Node);   Stream.WriteAnsiString(Data^.Imie);   Stream.WriteAnsiString(Data^.Nazwisko);   Stream.WriteAnsiString(IntToStr(Data^.Wiek));   Stream.WriteAnsiString(Data^.Miejscowosc);end;  

Pe3s:
A big thank you to everyone :)

Navigation

[0] Message Index

[*] Previous page

Go to full version