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:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

procedure TForm1.Button1Click(Sender: TObject);
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';  }
  table1.Open;
  if opendialog1.Execute()
    then
      aFilename := openDialog1.FileName ;
  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 aTrennPos > 0 do begin
      inc(aFeldNr);
      aTempStr:= Copy(instring,1,aTrennPos-1);
      table1.Fields[aFeldNr].AsString := aTempStr;
      Delete(instring,1,aTrennPos);
      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;

end.                    

1:

tmpText:= copy(ImportText,2,Length(ImportText)-2)