Problemas com exporta��o e importa��o usando DBMemo

Question

Estou usando um DBMemo, se os dados salvos � de apenas uma linha tudo bem, mas se eu pulo uma linha ele grava dois quadrados no banco de dados, quando eu exporto esses dados para um arquivo texto eu c...

Edilcimar · Answer

mostre o fonte para que algu�m tente achar o erro...

Zotti · Answer

o codigo fonte,
aqui ele exporta dados que foram entroduzidos em um db pelo componente DBMemo

procedure TBL.SpeedButton11Click(Sender: TObject);
var
namebl : string;
Arq: TextFile;
begin
PageControl1.ActivePageIndex := 0;
if SaveDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
with DmGlobal.Tblbl   do
begin
repeat
AssignFile(Arq, SaveDialog1.FileName);
ReWrite(Arq);
WriteLn(Arq,FieldByName(�NRBL�).AsString + �|� +
FieldByName(�SAILED_DATE�).AsString + �|� +
FieldByName(�SH_SHIPPER�).AsString + �|� +
FieldByName(�CONSIGNEE�).AsString + �|� +
FieldByName(�NOTIFY�).AsString + �|� +
FieldByName(�ALSONOTIFY�).AsString + �|� +
FieldByName(�VESSEL�).AsString + �|� +
FieldByName(�VOYAGE�).AsString + �|� +
Edit;
namebl:= SaveDialog1.filename;
DmGlobal.TblblDiretorio.asstring:= namebl;
Post;
Last;
PageControl1.ActivePageIndex := 0;
until EOF;
CloseFile(Arq);
end;
Screen.Cursor := crDefault;
end;
end;

Aqui ele importa

procedure TBL.SpeedButton12Click(Sender: TObject);
var
Arq: TextFile;
Texto: String;
I: Integer;
function MontaVariavel: String;
var
monta: String;
begin
monta := ��;
inc(I);
while Texto[I] <> �*� do
begin
if Texto[I] = �|� then
break;
monta := monta + Texto[I];
inc(I);
end;
result := monta;
end;
begin
if OpenDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
DmGlobal.Tblbl.Open;
AssignFile(Arq, OpenDialog1.FileName);
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq,Texto);
with DmGlobal.Tblbl do  
begin
Edit;
i := 0;
FieldByName(�NRBL�).AsString := MontaVariavel;
FieldByName(�SAILED_DATE�).AsString := MontaVariavel;
FieldByName(�SH_SHIPPER�).AsString := MontaVariavel;
FieldByName(�CONSIGNEE�).AsString := MontaVariavel;
FieldByName(�NOTIFY�).AsString := MontaVariavel;
FieldByName(�ALSONOTIFY�).AsString := MontaVariavel;
FieldByName(�VESSEL�).AsString := MontaVariavel;
FieldByName(�VOYAGE�).AsString := MontaVariavel;
Last;  end;
until EOF(Arq); 
CloseFile(Arq);
Screen.Cursor := crDefault;
end;
end;

Bem estou usando uma fun��o, para importar os dados de um arquivo txt, e os campos mencionados s�o campos de dados gerados de DBMemo.

Aroldo Zanela · Answer

Colega,Tente o seguinte:[code:1:0a55ad234b](qCadastro.FieldByName(�campo_blob�) as TBlobField).Assign( ... origem ...)[/code:1:0a55ad234b]Da forma acima, voc� pode armazenar qualquer �coisa� no banco, como: execut�veis, PDFs, Docs, Zips, ou seja, at� texto simples....

Zotti · Answer

Como declarar a origem neste caso, n�o entendi......

F�rum Problemas com exporta��o e importa��o usando DBMemo #256896