Daten aus ASCII Dateien auslesen

[thkerkmann]

Hi,

also ich würd's so machen:

Delphi-Quellcode:

var
  sl: tStringlist;
  s: string;
  sCode: string;
  sPosition: string;
  sText: string;
  sEuro: string;
begin
  sl := tStringlist.Create;
  try
    sl.LoadFromFile(dieDatei);

    for i:=0 to sl.Count-1 do
    begin
      s := sl.Strings[i];
      sCode := copy(s,1,2);
      if sCode='10' then
      begin
        // Anfang
        sPosition  := '';
        sText := '';
        sEuro := '';
      end
      else if sCode='11' then
        sPosition := copy(s,3,maxint)
      else if sCode='12' then
        sText := copy(s,3,maxint)
      else if sCode='13' then
        sEuro := copy(s,3,maxint)
      else if sCode='20' then
      begin
        // eintragen der drei variablen in stringgrid oder was auch immer
      end;
    end;
  finally
    sl.Free;
  end;
end;

Frohes Fest