REVELAR

Fórum corrigir string p/ Script #57354

01/12/2006

0

Galera estou percorrendo uma tabela e montando uma Script até ai blz só que quando encontro um campo string e ele usa ( ´ ) da erro pois a string fica aberta. assim:

´´ABCD_EFGHI´´´ ai eu teria que percorer ela e deixar
assim: ´´´´´ABCD_EFGHI´´´´´ para que ela ficasse certa

e se eu tiver ( ´ ) no meio ´´ABCD_´EFGHI´´´ ficaria diferente
assim: ´´´´´ABCD_´´EFGHI´´´

aguém que já passou por isso tem alguma coisa já feita???

estou qbrando a cabeça nisso,rss

Thanks


Marcos Fernando

Marcos Fernando

Responder

Posts

01/12/2006

Marcos Fernando

Eu fiz assim e resolvi tudo.rsss

function ArrumaScript (Campo: String ): string; var t: string; i,c : integer; begin c := 0; for I := 1 to Length(Campo) do begin if campo[I] = ´´´´ then begin c := c+1; t:=t+´´´´; end; t := t+ campo[I]; end; campo := t; if c <> 0 then if (c div 2) = (c/2) then t := t+´´´´´´; Result := campo; end;


thanks


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar