медленно работает код(СУБД Paradox)

[alex_-87]

begin
    f.LoadFromFile('nazva');
    if Pos('Q', nazva) > 0 then
    begin
      c2 := f.Count; //vuzna4aemo kil-st ryadkiv
      //go
      for i2 := 1 to c2 - 1 do
      begin //zcutyemo po ryadkah
        b := f.Strings[i2]; //
        c := length(f.Strings[i2]); //dovguna ryadka
        for i := 0 to 3 do
          mas[i] := '';
        i := 0;
        for k := 1 to c do
        begin
          if b[k] <> #39 then
          begin
              mas[i] := mas[i] + b[k];            
          end
          else
            i := i + 1;
        end;
        {vstavka zapusiv}
        try
          with Table1 do
          begin
            Table1.TableName := 'qwert.db';
            Table1.Active := true;
            Table1.First;
            begin
              begin
                Table1.Insert;
                if mas[0] <> '' then
                  Table1.Fields[0].AsInteger := strtoint(mas[0]);
                if mas[1] <> '' then
                  Table1.Fields[1].AsString := mas[1];
                if mas[2] <> '' then
                  Table1.Fields[2].AsDateTime := strtodate(mas[2]);
                if mas[3] <> '' then
                  Table1.Fields[3].AsFloat := StrToFloat(mas[3]);   
                Table1.Post;
              end;
              Table1.Next;
            end;
            Table1.Close;
          end;
        except
          ShowMessage('Ошибка' + mas[0]);
        end;
      end;
end;

[Stilet]

А делать то оно что должно?

[alex_-87]

Сообщение от Stilet

А делать то оно что должно?

перелив с csv в paradox

[alex_-87]

спасибо, я нашел уже решение...
нужно вынести из цикла Table1.Active := true, Table1.Close...

[vovk]

Если большой объём может помочь
до переноса
Table1.DisableControls
после включить
Table1.EnableControls

[alex_-87]

Сообщение от vovk

Если большой объём может помочь
до переноса
Table1.DisableControls
после включить
Table1.EnableControls

да, Вы правы, это было только на этапе прогона программы... а его вообще убрал...