1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button11Click(Sender: TObject); {Laden}
var f: TextFile;
    s: String;
    anz, i: Integer;
    werte: Array[1..200] of Integer;
begin
 Protokoll.Lines.Clear;
 OpenDialog.Execute;
 AssignFile(f, OpenDialog.FileName);
 Reset(f);
 anz := FileSize(f);
  For i := 1 to anz do
   ReadLN(f, werte[i])
   Protokoll.Lines.Add(s);

 CloseFile(f);
end;					

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

function File_Read( csFile : string ) : string;  // Liest aus einer Datei alles in die Variable cInhalt

var oAsciiFile : TextFile;
    csString   : string;


begin
   AssignFile( oAsciiFile, csFile );
   Reset( oAsciiFile );
   while not eof( oAsciiFile ) do begin
      ReadLn( oAsciiFile, csString );
      result := result + csString + CRLF;
      Application.ProcessMessages;
   end;
   CloseFile( oAsciiFile );
end;					

1:

Memo1.Text := File_Read( 'C:\Autoexec.bat' ); // (deine Datei angeben)					

1:

Mome1.Lines.LoadFromFile('test.txt');					

1:
2:
3:
4:

if TreeView1.Selected.Text = 'AGB' then begin
   Memo1.Lines.Clear ;
   Memo1.Lines.LoadFromFile('Daten/AGB/Agb.rtf');
   end;					

1:
2:
3:
4:

if TreeView1.Selected.Text = 'AGB' then begin  
   RichEdit1.Lines.Clear ;  
   RichEdit1.Lines.LoadFromFile('Daten/AGB/Agb.rtf');  
   end;