1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure TForm1.Button1Click(Sender: TObject);
var woerter: array of string;
    infile: Textfile;
    pfad, zeile: string;
    i: integer;
begin
  pfad := ExtractFilePath(Application.ExeName)+'test.txt';
  AssignFile(infile, pfad);
  {$I-}
  reset(infile);
  while not eof(infile) do
    begin
      readln(infile, zeile);
      while (Length(zeile) > 0) do
        begin
          SetLength(woerter, Length(woerter)+1);
          if pos('|',zeile) = 0 then
            begin
              woerter[High(woerter)] := zeile;
              zeile := '';
            end
          else
            begin
              woerter[High(woerter)] := copy(zeile, 1, pos('|', zeile)-1);
              Delete(zeile, 1, pos('|',zeile));
            end;
        end;
      Next;
    end;
  {$I+}
  if IOResult <> 0 then Showmessage('Fehler aufgetreten!')
  else CloseFile(infile);

  for i := 0 to High(woerter) do
    Showmessage(woerter[i]);

  woerter := nil;  // Speicher freigeben
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
VAR liste : TStringList;
    datei : Textfile;
    text, lesen : String;
begin
  liste:=TStringList.Create;
  AssignFile(datei,'c:\test.txt');
  Reset(datei);
  text:='';
  lesen:='';
  while not eof(datei) do
  begin
    Readln(datei,lesen);
    if (lesen <>'') and (text<>'') then text:=text+'|';
    text:=text+lesen;
  end;
  CloseFile(datei);
  text:=StringReplace(text,'|',',',[rfReplaceAll]);
  liste.CommaText:=text;
  liste.Free;
end;