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

.
.
.
r1::600:u1,u2,u2
r2::600:u1,u2,u2
r3::600:u1,u2,u2
r4::600:u1,u2,u2
.
.
.					

1:
2:
3:
4:

while not(explode('::', aktZeile)[0] = aktUser or eof(datei)) do {nächste Zeile in aktZeile auslesen};
aktUserArray := explode('::', aktZeile);

for x:=1 to High(aktUserArray) do Listbox1.Items.Add(aktUserArray[x]);					

1:
2:
3:
4:

while not(explode('::', aktZeile)[0] = aktUser or eof(datei)) do {nächste Zeile in aktZeile auslesen}; 
aktUserArray := explode('::', aktZeile); 

for x:=1 to High(aktUserArray) do Listbox1.Items.Add(aktUserArray[x]);					

1:
2:
3:
4:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);					

1:

TStringDynArray = array of string;					

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:

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray; 
var 
  SepLen: Integer; 
  F, P: PChar; 
  ALen, Index: Integer; 
begin 
  SetLength(Result, 0); 
  if (S = '') or (Limit < 0) then Exit; 
  if Separator = '' then 
  begin 
    SetLength(Result, 1); 
    Result[0] := S; 
    Exit; 
  end; 
  SepLen := Length(Separator); 
  ALen := Limit; 
  SetLength(Result, ALen); 

  Index := 0; 
  P := PChar(S); 
  while P^ <> #0 do 
  begin 
    F := P; 
    P := StrPos(P, PChar(Separator)); 
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F); 
    if Index >= ALen then 
    begin 
      Inc(ALen, 5); // mehrere auf einmal um schneller arbeiten zu können 
      SetLength(Result, ALen); 
    end; 
    SetString(Result[Index], F, P - F); 
    Inc(Index); 
    if P^ <> #0 then Inc(P, SepLen); 
  end; 
  if Index < ALen then SetLength(Result, Index); // wirkliche Länge festlegen 
end;					

1:

end.					

1:

myvar := ini.ReadString(edit1.text, var1);