Indirekt: Strings vergleichen (inside more)

[Hansa]

Delphi-Quellcode:

var i : integer;
    st : string;
    datei : text;
    ArrayVar : Array [1..100000] of char [20];
begin
  AssignFile (datei 'Text.TXT');
  reset (datei)
  i := 0;
  while not EOF (datei) do begin
    i := i + 1; 
    readln (datei,st);
    ArrayVar [i] := st;
  end;
end.

Das ist alles.