1:

StringGrid1.Cells[Spalte,Zeile] := 'Hallo';                    

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

var 
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Öffnen-Dialogfeld anzeigen }
  begin
    AssignFile(F, OpenDialog1.FileName); { Datei in Dialogfeld ausgewählt }
    Reset(F);
    Readln(F, S);                        { Erste Zeile der Datei lesen }
    Edit1.Text := S;                     { String in Eingabefeld einfügen }
    CloseFile(F);
  end;
end;                    

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

Öffne Datei
y = 1
Wiederhole
  Lies Datum (Zeile1)
  Lies Ergebnis1 (Zeile2)
  Lies Ergebnis2 (Zeile3)
  Lies Ergebnis3 (Zeile4)
  Füge Datum zu StringGrid Zelle 0,y hinzu
  Füge Ergebnis1 zu StringGrid Zelle 1,y hinzu
  Füge Ergebnis2 zu StringGrid Zelle 2,y hinzu
  Füge Ergebnis3 zu StringGrid Zelle 3,y hinzu
  Erhöhe y
  Erhöhe die Anzahl der StringGrid Zeilen um 1
bis Ende der Datei erreicht                    

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

procedure TForm1.Button3Click(Sender: TObject);
var
filename:string;
s:string;
begin
filename:=('Rechnung.txt');
if OpenDialog1.Execute then
  begin
    AssignFile(filename, OpenDialog1.FileName);
    Reset(filename);
    Readln(filename, S);
    memo1.Text := S;
    CloseFile(filename);
  end
end;                    

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

procedure TForm1.Button3Click(Sender: TObject);
var
filename:string; // falscher Typ ..... Textfile;
s:string;
begin
filename:=('Rechnung.txt');
if OpenDialog1.Execute then
  begin
    AssignFile(filename, OpenDialog1.FileName);
    Reset(filename);
    Readln(filename, S); //Hier liest du aus der Datei den Wert raus
    memo1.Text := S; //Und hier weist du dem Memo den ausgelesenen Wert zu; S ist quasi nur eine Zwischenspeichervariable (Dummy)
    CloseFile(filename);
  end
end;                    

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

procedure TForm1.Button3Click(Sender: TObject);
var
filename:textfile;
s:string;
begin
filename:=('Rechnung.txt');
if OpenDialog1.Execute then
  begin
    AssignFile(filename, OpenDialog1.FileName);
    Reset(filename);
    Readln(filename, S);
    memo1.Text := S;
    CloseFile(filename);
  end;
end;                    

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

procedure TForm1.Button3Click(Sender: TObject);
var
filename:textfile;
s:string;
begin

  if OpenDialog1.Execute then begin
     AssignFile(filename, OpenDialog1.FileName);
     try
        Reset(filename);
        Readln(filename, S);
        memo1.Text := S;
     finally
        CloseFile(filename);
     end;
  end;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var x:TOpenDialog;
begin
x:=TOpenDialog.Create(Button1);
x.Execute;
x.free;
end;                    

1:

ExtractFilePath(Application.ExeName)                    

1:

AssignFile(filename, Dateiname);  //Datei erstellen und Dateiname festlegen                    

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

procedure TForm1.Button3Click(Sender: TObject);
var
filename:textfile;
s:string;
begin
filename:=('Notiz.txt');
if filename:=('Notiz.txt'); then
  begin
    AssignFile(filename, OpenDialog1.FileName);
    Reset(filename);
    Readln(filename, S);
    memo1.Text := S;
    CloseFile(filename);
  end;
end;                    

1:

Extractfilepath(application.exename);                    

1:

AssingFile(filename, Trim(ExtractFilePath(Appkication.exename))+'Text.txt');                    

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

procedure TForm1.Button3Click(Sender: TObject);
var
filename:textfile;
s:string;
begin

    AssingFile(filename, Trim(ExtractFilePath(Appkication.exename))+'text.txt');
    Reset(filename);
    Readln(filename, S);
    memo1.Text := S;
    CloseFile(filename);
end;                    

1:

AssingFile(filename, Trim(ExtractFilePath(Application.exename))+'notiz.txt');                    

1:
2:
3:
4:

while not(EOF(f)) do begin
  ReadLn(f, s);
  Memo1.Lines.Add(s);
  end;                    

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

var
  Zeilen: TStringList;
  Dateiname: String;

{...}

Dateiname := 'C:\TEST.TXT';
Zeilen := TStringList.Create;
Zeilen.LoadFromFile(Dateiname);
Memo1.Assign(Zeilen);
Zeilen.Free;                    

1:

repeat Readln(filename, S) until endoffile                    

1:

Memo1.Lines.LoadFromFile(filename);