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

dir := 'C:\code.txt'; //dateipfad
AssignFile (f, dir); //datei öffnen, dir = dateipfad
Reset (f); //'f' zurücksetzen
while not EOF(f)do //weil das dokument ncoh nciht zu ende ist tue
  begin
    ReadLn(f, zeile); //zeile auslesen und in 'zeile' speichern
    memo1.text := zeile; //memo1.text soll JEDE zeile anzeigen. <Sicherheitscheck.
  end;					

1:

memo1.lines.Add(zeile)					

1:

memo1.Text :=  StringReplace (memo1.text, '5947 ', 'a', [rfReplaceAll]);					

1:

memo1.lines.loadfromfile(deinDateiname)					

1:

memo1.Text :=  StringReplace (memo1.text, '5947 ', 'a', [rfReplaceAll]);					

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

var f : TextFile;
    dir : string;
    i : integer;
    zeile : Array of Integer;
begin
  if OpenDialog1.Execute() then //wenn der dialog zum öfnnen einer datei betätigt ist dann
  begin
    i := 0;
    dir := 'C:\code.txt'; //dateipfad
    AssignFile (f, dir); //datei öffnen, dir = dateipfad
    Reset (f); //'f' zurücksetzen
    while not EOF(f)do //weil das dokument ncoh nciht zu ende ist tue
    begin
      ReadLn(f, zeile[i]); //zeile auslesen und in 'zeile' speichern
      i := i + 1;
      memo1.text := zeile[i]; //memo1.text soll JEDE zeile anzeigen. <Sicherheitscheck.
    end;					

1:

memo1.Text :=  StringReplace (memo1.text, zeile[1], 'a', [rfReplaceAll]);					

1:
2:
3:
4:
5:

57334
6135
562345
234246
1123 etc...					

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

{...}
var zeile: String;
begin
{...}
    while not EOF(f)do //weil das dokument ncoh nciht zu ende ist tue 
    begin 
        ReadLn(f, zeile); //zeile auslesen und in 'zeile' speichern 
        memo1.lines.add(zeile); //memo1.text soll JEDE zeile anzeigen. <Sicherheitscheck. 
    end;					

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

{...}
var zeile: array of String;
begin
{...}
    i:=0;
    while not EOF(f)do //weil das dokument ncoh nciht zu ende ist tue 
    begin
        inc(i); //inc steht für increase: bedeutet das gleiche wie i:=i+1 nur kürzer.
        SetLength(zeile, i); //größe des Arrays anpassen
        ReadLn(f, zeile[i]); //zeile auslesen und in 'zeile' speichern 
        memo1.lines.add(zeile[i]); //memo1.text soll JEDE zeile anzeigen. <Sicherheitscheck. 
    end;					

1:

access violation at 0x00401c4c.... ect					

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

var f : TextFile;
    dir : string;
    i : integer;
    zeile : Array of string;
begin
  if OpenDialog1.Execute() then //wenn der dialog zum öfnnen einer datei betätigt ist dann
  begin
    i := 0;
    dir := 'C:\code.txt'; //dateipfad
    AssignFile (f, dir); //datei öffnen, dir = dateipfad
    Reset (f); //'f' zurücksetzen
    while not EOF(f)do //weil das dokument ncoh nciht zu ende ist tue
    begin
      inc(i); //increas (i := i + 1;)
      SetLength(zeile, i); //größe des arrays anpassen
      ReadLn(f, zeile[i]); //zeile auslesen und in 'zeile' speichern
      memo1.lines.add(zeile[i]); //memo1.text soll JEDE zeile anzeigen. <Sicherheitscheck.
    end;					

1:

memo1.Text :=  StringReplace (memo1.text, zeile[3], 'a', [rfReplaceAll]);