Funcao acrescentar 1 em uma string? (exemplo: A 1 = B)

Delphi

07/03/2005

Alguém conhece uma função no Delphi que de para eu somar +1 em uma string? por exemplo:
A + 1 = B;
B + 1 = C;
C + 1 = D;


Weber

Weber

Curtidas 0

Respostas

Xanatos

Xanatos

07/03/2005

Essa é do meu tempo de facul...nao sei se é isso que voce quer mas ai vai:


var
  i: integer;
  c: char;
begin
 c:= Edit1.Text[1];
 i:= ord(c)+1;
 Edit2.Text:= CHR(I);
end;



GOSTEI 0
Massuda

Massuda

07/03/2005

Desculpe se não entendi sua dúvida, mas para cada char da string você pode fazer:
var
  S: string;
  I: integer;
...
  S[I] := Succ(S[I]);

  // ou ainda...

  S[I] := Chr(Ord(S[I]) + 1);
Não testei, talvez haja problema quando S[I] = 255.


GOSTEI 0
Weber

Weber

07/03/2005

Beleza, vlw :lol:


GOSTEI 0
POSTAR