Delphi-Quellcode:
var
strList: TWidestrings; (Könnte bei TNT TTNTWideStrings heißen)
begin
strList := TWideStringList.Create;
try
strList.LoadFromFile(<Unicodedateiname>);
if strList.Count > 0 then
Word := strList[0];
finally
strList.Free;
end;
end;
Für Detail schau einfach in die Implementierung dier WideStringList-Klasse von TNT