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:
37:
38:
39:
40:
41:
42:
43:
44:

{$UNTESTED, da einfach eingetippt}
var
  T: TextFile;
  instring: String;
  aTrennPos: ShortInt;
  aTempStr: String;
  Counter: LongInt;
  aFeldNr: ShortInt;
begin
  table1.Open;
  AssignFile(T,aFilename);
  Reset(T);
  Readln(T,instring);  // überschriften nicht miteinlesen
  aCounter:= 0;

  while not EOF(T) do begin
    readln(T,instring);
    instring:= instring + ';'  // damit auch das letzte feld eingelesen wird 
    inc(aCounter);
    if (aCounter mod 100)= 0 then begin
      StaticText1.Caption:= Format('SatzNr: %9d eingelesen',[aCounter]);
      StaticText1.Update
    end;

    aFeldNr:= 0;
    aTrennPos:= Pos(';',instring);
    table1.Append;
    while if aTrennPos > 0 do begin
      inc(aFeldNr);
      aTempStr:= Copy(instring,1,aTrennPos-1);
      table1.Fields[aFeldNr].Value:= aTempStr;
      Delete(instring,1,aTrennPos+1);
      aTrennPos:= Pos(';',instring)
    end
    table1.Post
  end;

  CloseFile(T);
  table1.close;

  StaticText1.Caption:= Format('SatzNr: %9d eingelesen',[aCounter]);
  StaticText1.Update;
  ShowMessage(Format('Import von %s beendet',[aFilename]));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

    aFeldNr:= 0;  
    aTrennPos:= Pos(';',instring);  
    table1.Append;  
    while if aTrennPos > 0 do begin  
      inc(aFeldNr);  
      aTempStr:= Copy(instring,1,aTrennPos-1);
      case aFeldNr of
         1: table1.FieldByName('ID').asInteger:= StrToInt(aTempStr);
         2: table1.FieldByName('Bezeichnung').asString:= aTempStr;
         (* der 3. eintrag wird zb nicht in die tabelle eingetragen*)
         4: usw, usf....
      end; 
      Delete(instring,1,aTrennPos+1);  
      aTrennPos:= Pos(';',instring)  
    end  
    table1.Post                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  T: TextFile;
  instring: String;
  aTrennPos: ShortInt;
  aTempStr: String;
  Counter: LongInt;
  aFeldNr: ShortInt;
  aFilename : string;
  aCounter: integer;
begin

with para_temp1 do begin
  Active := False;
  DatabaseName := 'import';
  TableType := ttParadox;
  TableName := 'para_temp1';

if not Table1.Exists then begin
      with FieldDefs do begin Clear

          CSV_Datei_Spalten.colcount :=  para_temp1.FieldCount;   // para_1.fieldcount;
          for i := 0 to CSV_Datei_Spalten.fieldcount  -0 do
            CSV_Datei_Spalten.cells[0,i] := para_temp1.fields[i].fieldname;                    

1:
2:
3:
4:
5:

  if not Table1.Exists then begin  
    with FieldDefs do begin 
      Clear;  

 -->  CSV_Datei_Spalten.colcount :=  para_temp1.FieldCount;