Buscar

Transferindo o conteúdo de um memo para um memofield

Código

Var
t: TTable;
Begin
t := TTable.create(self);
with t do
begin
DatabaseName := 'MyAlias'; {personal alias}
TableName := 'MyTbl.db';
open;
edit;
insert;
fieldByName('TheField').assign(memo1.lines); {This is it!}
post; {required!!!}
close;
end;
end;  

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 1986 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009