Gravar linhas em BD, Urgente.

Question

Tenho um problema s�rio, tenho que gravar uma determinda linha de um richedit, por exemplo, em um BD, j� tentei v�rios m�todos, mas nenhum faz o que necessito, vou citar um ex. Pegar da linha que tem ...

F�rum Vini · Answer

Use essas fun�oes:[b:0949534961]function [/b:0949534961]PegaTexto(Txt,Ini,Fim: [b:0949534961]string[/b:0949534961]): [b:0949534961]string[/b:0949534961];[b:0949534961]var[/b:0949534961]  cont: integer;[b:0949534961]begin[/b:0949534961]   [b:0949534961]for[/b:0949534961] cont:=Pos(Ini,Txt)+length(Ini) to Pos(Fim,Txt)-1 [b:0949534961]do[/b:0949534961]     Result:=Result+Txt[cont];[b:0949534961]end[/b:0949534961];[b:0949534961]procedure [/b:0949534961]Grava;[b:0949534961]begin[/b:0949534961]  Table1.FieldbyName(�CampoTipoMemo�).asString:=PegaTexto(RichEdit1.Lines.Text,�Codigo�,�Valor a ser pago...�);[b:0949534961]end;[/b:0949534961]Espero ter ajudado.Vinicius...

F�rum Gravar linhas em BD, Urgente. #171690