Insufficient memory for this operation

Question

Boa tarde delphianos....O problema � o seguinte... tenho um sistema para convers�o de Base Paradox para .txt, no form eu tenho um gauge para exibir o andamento do processamento e um bot�o... o problem...

Isabelct · Answer

Qual a vers�o do Delphi? Eu sofri bastante com esta mensagem nos tempos que utilizava o Delphi 5... Ap�s compilar e executar diversas vezes seguidas o programa, esta mensagem aparecia e a �nica sa�da era fechar o Delphi e depois abrir novamente. N�o consegui descobrir o motivo da mensagem.

Tamb�m � v�lido voc� verificar se n�o est� deixando nada sem destruir... Tipo se voc� cria um TStringList no in�cio da rotina, ele est� sendo destru�do corretamente ao final da rotina? D� uma revisada deste tipo.

Crashovewrite · Answer

isabelct... utilizo D7.... segue o seguinte c�digo que estou utilizando no meu conversor...

var F: TextFile;
    espaco, CD_BCO, NM_BCO: String;
    i: Integer;
begin
 If Power.mensa(Self, �Deseja Realmente Exportar os Registros da Tabela Banco para um arquivo .txt�, ipTipoSimNao, ipMensaConfirmation, ipPadraoSim) = ipResultadoSim Then
  begin
   i:= 0;
   DM.tbBanco.Close;
   DM.tbBanco.Open;
   Gauge1.MinValue:= 0;
   Gauge1.MaxValue:= DM.tbBanco.RecordCount;
   espaco:= �  �;
      AssignFile(F, �C:\SISTEMAS\Conversor TxT\Dados\COCBO001.txt�); //... nome do arquivo texto a ser gravado
      Rewrite(F);
      DM.tbBanco.IndexFieldNames:= �BAN_COD�;
      DM.tbBanco.First;
       While not DM.tbBanco.Eof Do
        begin
        CD_BCO   := Format(��.3d�,[DM.tbBancoBAN_COD.AsInteger]) ;
        NM_BCO   := DM.tbBancoBAN_DESC.AsString;

         //Aqui gravo os dados do registro e pula uma linha
         Writeln(F, CD_BCO + �;� + espaco + NM_BCO + �;�);

         myLabel3d2.Caption:= DM.tbBancoBAN_DESC.AsString;
         Application.ProcessMessages;
         DM.tbBanco.Next;
         Inc(i);
         Gauge1.Progress:= Gauge1.Progress + 1;
        end;
         CloseFile(F);

         Power.mensa(Self, �Foram convertidos � + IntToStr(i) + � registro(s) com sucesso�, ipTipoOK, ipMensaInformation, ipTipoOK);
         DM.tbBanco.Close;
         Gauge1.Progress:= 0;
  end;

F�rum Insufficient memory for this operation #287190