Batchlisten Import Dringend Hilfe gesucht

[MrSpock]

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.