String Variable

[marabu]

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