use Unit System
A função Pred retorna o antecessor de um argumento.
Sintaxe da sua utilização:
Pred(Argumento);
Ex:
procedure TForm1.Button21Click(Sender: TObject);begin
label1.Caption:=IntToStr(Pred(15));end;
label1.Caption:=IntToStr(Pred(15));end;
se eu entendi direito isso ajudaria em laços como por exemplo
ResponderExcluirfor x:= 0 to lista.count -1 do
em vez de colocar -1 seria apenas
for x:= to pred(lista.count) do
Desculpa mas sua explicação esta muito pobre.
ResponderExcluir