Txt Datei Tabulatorschritte --> Stringlist

[Schuster]

Habs auch grad so gelöst

Delphi-Quellcode:

for x:=2 to Meinestringlist.count-1 do     // schleife zum durchlaufen der gesamten stringliste
   begin
      templist.delimiter:=#9;    // setzt als trennzeichen den tabulator
      templist.delimitedtext:=(trim(Meinestringlist[x]));      //Nun hast du 5 Spalten über die du auf die einzelnen werte zugreifen kannst
      Stringgrid1.RowCount:=x;
      try
          strtoint(templist[3]);
          StringGrid1.Cells[0,x]:=(templist[3]);   //postleitzahl
          StringGrid1.Cells[1,x]:=(templist[4]);   //Ort
      except
          try
              strtoint(templist[4]);
              StringGrid1.Cells[0,x]:=(templist[4]);
              StringGrid1.Cells[1,x]:=(templist[5]);
          except
              try
                  strtoint(templist[5]);
                  StringGrid1.Cells[0,x]:=(templist[5]);
                  StringGrid1.Cells[1,x]:=(templist[6]);
              except
                  try
                      strtoint(templist[6]);
                      StringGrid1.Cells[0,x]:=(templist[6]);
                      StringGrid1.Cells[1,x]:=(templist[7]);
                  except
                      StringGrid1.Cells[0,x]:=(templist[7]);
                      StringGrid1.Cells[1,x]:=(templist[8]);   
                  end;
              end;
          end;
      end;
  end;