1:
2:
3:
4:
5:
6:
7:
8:

var txt:textfile;
{...}
  // laden der Datei
  assignfile(txt,'test.txt');
  reset(txt);

  // dateiname 
  readln(txt,fname);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
   txt: TextFile;  
   line,all: String;
{...}  
  // laden der Datei  
  assignfile(txt,'test.txt');  
  reset(txt);  

  all := '';
  while (NOT Eof(txt)) do
    readln(txt,line); 
    all := all +line;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  SList:   TStringList;
  TempStr: String;
begin
  SList := TStringList.Create;
  SList.LoadFromFile('C:\MyTxt.txt');

  TempStr := SList.Text
  TempStr := StringReplace(TempStr, #13#10, ' ', [rfReplaceAll]);

  SList.Free;
end;