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;