Re: [delphi-br] Alterar Caracter dentro de String

[Alcistemas Informática]

function BuscaTroca(Texto: String; pos:integer; troca:String):string;
begin
result := copy(texto,1,pos-1)+troca+copy(texto,pos+1,32);
end;


EX: Trocar o quinto caracter por X do Edit1
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text := BuscaTroca(edit1.text,5,'X');
end;


kra, bolei agora é bom testar.... :)





  ----- Original Message ----- 
  From: Ricardo Mendes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 28, 2007 8:30 AM
  Subject: [delphi-br] Alterar Caracter dentro de String



  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;

  Fico no aguardo,

  Ricardo Mendes

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]