Hallo,
ach so, dann mach doch folgendes
Delphi-Quellcode:
function FirstSigns(TextFilename : TFilename; Count : Integer) : String;
var
_File : System.Textfile;
_Line : String;
begin
AssignFile(_File,TextFilename);
Reset(_File);
Try
Readln(_File,_Line);
Result:=(Copy(_Line,1,Count));
Finally
CloseFile(_File);
end;
end;