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]);                    

1:
2:
3:

1246
5432
5456                    

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

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 := 250;
    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;
    memo1.lines.LoadFromFile(OpenDialog1.FileName); //zeige die Datei in Memo1 an.
    memo1.Text :=  StringReplace (memo1.text, zeile[1], 'a', [rfReplaceAll]);                    

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

  
begin  
    SetLength(zeile, 250); // setz es am anfang auf deine größe, wenn du's fest auf 250 haben willst!
    i := 0;  //fang bei null an zu zählen
    dir := 'C:\code.txt'; 
    AssignFile (f, dir); 
    Reset (f); 
    while not EOF(f)do 
        begin  
            ReadLn(f, zeile[i]); 
            inc(i); //erst einlesen, dann i hochzählen!!
        end;  
    memo1.lines.LoadFromFile(OpenDialog1.FileName); //zeige die Datei in Memo1 an.  
    memo1.Text :=  StringReplace (memo1.text, zeile[0], 'a', [rfReplaceAll]);
end;                    

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

{...} 
    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-1]); //zeile auslesen und in 'zeile' speichern  
        memo1.lines.add(zeile[i]); //memo1.text soll JEDE zeile anzeigen. <Sicherheitscheck.  
    end;                    

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

begin
  AssignFile(f,'C:\code.txt');
  Rewrite(f);
  for i := 1 to 68 do
  begin
    a := 10000 + Random(89999);
    Writeln(f,a);
  end;
end;