Problema em inteiro no Delphi

Question

Pessoal, estou tendo um problema com inteiro no Delphi que acontece quando fa&ccedil;o o seguinte:

var
   I, Tamanho: Integer;
  Aux1, Aux2: string;
begin
  Aux1 := Edit1.text;
  Tamanho := Edit1.Gettextlen;
  Aux2 := '';
  for I := 1 to (Tamanho - 1) do
     Aux2[I] := Aux1[I];
end;

O que acontece &eacute; que depois de entrar no for nao sei pq o I fica como 0 e d&aacute; erro de acesso na string. J&aacute; tentei for&ccedil;ar o valor do I botando I := 1 e usando um while com um I := I + 1, mas acontece a mesma coisa, algu&eacute;m sabe porque?

Aproveitando, algu&eacute;m poderia sugerir uma solu&ccedil;&atilde;o elegante para fazer algo como a fun&ccedil;&atilde;o do backspace em uma string, ou seja retirar o &uacute;ltimo caracter?

Answer

[quote=GBastos]Pessoal, estou tendo um problema com inteiro no Delphi que acontece quando fa&ccedil;o o seguinte:
[/quote]

Vai dar erro pois a vari&aacute;vel Aux2 estaria com tamanho zero, n&atilde;o permitindo o acesso &agrave; posi&ccedil;&otilde;es inexistentes. Tente assim:


var
   I, Tamanho: Integer;
  Aux1, Aux2: string;
begin
  Aux1 := Edit1.text;
  Tamanho := Edit1.Gettextlen;
  Aux2 := '';
  for I := 1 to (Tamanho - 1) do
     Aux2 := Aux2 + Aux1[I];
end;

Answer

[quote=romulo]Vai dar erro pois a vari&aacute;vel Aux2 estaria com tamanho zero, n&atilde;o permitindo o acesso &agrave; posi&ccedil;&otilde;es inexistentes. Tente as...[/quote]

Rapaz, vou testar, nao sabia disso nao, o Pascal aceitava na boa...

E quanto &agrave; implementa&ccedil;&atilde;o do backspace, estou quase conseguindo, valeu!

Answer

[quote=GBastos]Rapaz, vou testar, nao sabia disso nao, o Pascal aceitava na boa...

E quanto &agrave; implementa&ccedil;&atilde;o do backspace, estou q...[/quote]

Ei, nem vi o &uacute;ltimo par&aacute;grafo sobre o backspace...  :lol: 

Mas voc&ecirc; pode fazer assim:

Copy(Texto, 1, Length(Texto) - 1)

Answer

No meu pouco entendimento de Object Pascal,
vc nao pode tratar uma STRING como um VETOR assim....
massss.....    Se for pra por tudo no bra&ccedil;o  :wink: 
-----------------------------
var 
   I, Tamanho: Integer; 
  Aux: string; 
begin 
  aux:='';
  Tamanho := length(Edit1.text); 
  for I := 1 to (Tamanho - 1) do 
     aux:=aux+copy(edit1.text,i,1);
end; 
--------------------------------
 :arrow: Mas ainda sim, acho a  solucao do Romulo eh a melhor ao meu ver.

Answer

[quote=CouLtiER]No meu pouco entendimento de Object Pascal,
vc nao pode tratar uma STRING como um VETOR assim....
massss.....    Se...[/quote]

D&aacute;. No Pascal, uma String &eacute; um vetor de caracteres.

Answer

Isso s&oacute; no PASCAL? 
Ou o Delphi, Kylix tb aceitam ?

Answer

[quote=CouLtiER]Isso s&oacute; no PASCAL? 
Ou o Delphi, Kylix tb aceitam ?[/quote]

No Delphi tamb&eacute;m. No Kylix eu n&atilde;o testei, mas provavelmente sim.

Answer

Valeu a dica! :)

Vou testar isso amanh&atilde; no trabalho.

Answer

[quote=romulo]Ei, nem vi o &uacute;ltimo par&aacute;grafo sobre o backspace...  :lol: 

Mas voc&ecirc; pode fazer assim:

Copy(Texto, 1, Length(Tex...[/quote]

Sua solu&ccedil;&atilde;o foi bem mais elegante que a minha...  :) 
Valeu, vou implementar!

Ferramentas

Mover Tópico