Pegar dados num memo e colocar na tabela?

Delphi

26/10/2003

Olá galera,
Como faço para pegar os dados que estão num memo (cada linha é um item da tabela), e coloca-los na tabela? preciso que a cada linha o ponteiro do memo mude para a proxima depois de ler a anterior.

Obrigado


Jc

Jc

Curtidas 0

Respostas

Dhiogo

Dhiogo

26/10/2003

Var
i:integer;
begin
for i:=0 to memo1.lines.count -1 do
begin
table1.append;
table1campo.asstring:=memo1.lines.strings[i];
table1.post;
end;
end;


GOSTEI 0
POSTAR