Hallo Ralf,
schade, dass du nichts zum Hintergrund deiner Frage geschrieben hast - es gibt sicher elegantere Wege um einen String an ein Programm zu übergeben, als eine Textdatei. Trotzdem hier eine Umsetzung mit ReadLn (hi luckie):
Delphi-Quellcode:
function PickLine(
const fn: TFileName;
index: Cardinal):
String;
var
tf: TextFile;
begin
AssignFile(tf, fn);
Reset(tf);
while not Eof(tf)
and (
index > 0)
do
begin
ReadLn(tf);
Dec(
index);
end;
if not Eof(tf)
and (
index = 0)
then ReadLn(tf, Result)
else Result := '
';
CloseFile(tf);
end;
Du musst dann noch abfangen, dass die Datei nicht existiert (FileExists) oder nicht geöffnet werden kann (IoResult). Das Abschneiden am Zeilenbeginn kannst du so machen:
Delphi-Quellcode:
var
line: String;
begin
// erste Zeile hat index 0
line := PickLine('datei.txt', 0);
Delete(line, 1, Pos(' ', line));
end;
Grüße vom marabu