Unicode aus Resource File auslesen

[AndreasP]

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