Hallo Frank,
ich habe die Dateien einmal angeschaut.
Zunächst einmal benötigst du eine Prozedur, die dir die Felder aus den Einträgen holen.
Dazu kannst du folgenden Code benutzen:
Delphi-Quellcode:
function TForm1.GetField(s: string; fieldNo: integer; sep: Char; var value: string): Boolean;
var
posi, i : Integer;
begin
Result := True;
value := '';
for i := 1 to fieldNo do
begin
posi := Pos(sep, s);
if posi > 0 then
Delete(s, 1, posi)
else begin
Result := False;
Exit
end;
end;
i := 1;
while (i<=length(s)) and (s[i] <> sep) do
begin
value := value +s[i];
Inc(i)
end
end;
Versuche diesen Code zu verstehen und sag Bescheid, wenn du so weit bist. Falls du irgendetwas nicht verstehst, bitte nachfragen.