PDA

Visualizza la versione completa : [Delphi6]Problema con if


Luc@s
31-08-2003, 21:11
procedure TForm1.btControllaClick(Sender: TObject);
begin

while ( txtNome.Text )
Begin
If ( txtNome.Text == "a" ) then
Begin
a_count := a_count+1;
End
else
Begin
a_count := a_count-1;
End
txtA.Text := (String) a_count;
End

end.


Dove sbaglio?

alka
01-09-2003, 09:31
Stai scrivendo usando le convenzioni del C!

Ti suggerisco di leggere qualche guida introduttiva a Delphi consultando le discussioni passate a riguardo.

Luc@s
01-09-2003, 09:36
se me lo correggi magari capisco l'errore :)

p87
01-09-2003, 09:41
procedure TForm1.btControllaClick(Sender: TObject);
var i:integer;
begin

for i:=1 to Length(txtNome.Text)do
Begin
If txtNome.Text[i] = 'a' then
inc(a_count)
else
dec(a_count);
txtA.Text := IntToStr(a_count);
End;

end;

Loading