Tenta assim...
Result := '';
for x := 1 to length(texto a trocar caracter) do
begin
if x = posicaocaracter a trocar then
result := result + NovoCarater ;
else
result := result + texto a trocar caracter[x] ;
end;
Acho que resolve....
Wesley
----- Original Message -----
From: Joao Morais
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 8:35 AM
Subject: Re: [delphi-br] Alterar Caracter dentro de String
Ricardo Mendes wrote:
> Galera minha duvida é o seguinte.
>
> Eu tenho um campo na minha tabela do tipo varchar(32) e preciso fazer o
> seguinte, ler essa string e alterar o caracter da posicao X. Tentei
> fazer desse jeito mas ele não aceita, pois da imcompatibilidade de
> types...
>
> function EditarString(sTex:String;numero: integer; sCarac: String)
> :string;
> var
> L : string[31];
> begin
> L:=sTex;
> L[numero-1]:= sCarac;
> result:= L;
> end;
sCarac tem que ser do tipo Char, ou então você tem que fazer:
if sCarac <> '' then
L[numero - 1] := sCarac[1];
--
Joao Morais
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.9/1155 - Release Date: 27/11/2007
20:30
[As partes desta mensagem que não continham texto foram removidas]
