Mahlzeit,
folgenden code hab ich aus der advanced demo von TVirtualTree, wenn du mit
unicode arbeitest solltest du die kompo auf alle fälle mal ansehen (wenn du das nicht schon gemacht hast
)
Delphi-Quellcode:
procedure LoadUnicodeStrings(
Name:
string;
var Strings:
array of WideString);
// Loads the Unicode strings from the resource.
var
Stream: TResourceStream;
Head, Tail: PWideChar;
I: Integer;
begin
Stream := TResourceStream.Create(0,
Name, '
Unicode');
try
Head := Stream.Memory;
// Skip byte order mark.
Inc(Head);
Tail := Head;
for I := 0
to High(Strings)
do
begin
Head := Tail;
while not (Tail^
in [WideChar(#0), WideChar(#13)])
do
Inc(Tail);
SetString(Strings[I], Head, Tail - Head);
// Skip carriage return and linefeed.
Inc(Tail, 2);
end;
finally
Stream.Free;
end;
end;
sollte eigentlich das sein was du suchst