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:

procedure TForm1.Button1Click(Sender: TObject);
var datei : textfile;
    dateioef : String;
    satz  : String;

  begin
    dateioef :=  'e:\pcausw\pcstumst.txt';    // Hier muss ich irgendwie sagen das er in
    assignfile(datei,dateioef);               // einer Schleife oder so alle Clients durch-
    try                                       // geht und die *.txt Datei einliest, aber wie?
      reset(datei);
    except
      on E: Exception do showmessage(E.Message);
    end;
      repeat
      readln(datei,satz);
      if length(trim(satz)) > 0 then
      table1.First;
      begin
        query1.ParamByName('para1').AsSmallInt :=strtoint (copy(satz,1,9));
        query1.ParamByName('para2').AsSmallInt :=strtoint(copy(satz,10,9));
        query1.ParamByName('para3').AsString := copy(satz,19,1);
        query1.ParamByName('para4').AsString := copy(satz,20,20);
        query1.ParamByName('para5').AsSmallInt :=strtoint(copy(satz,50,1));
        query1.ParamByName('para6').AsInteger :=strtoint(copy(satz,51,9));
        query1.ExecSQL;
       table1.Next;

      end;
    until(eof(datei));
    closefile(datei);
  end;