list index out of bounds(1) Que erro é este

04/08/2004

Estou tentando utilizar esta função, mas ta retornando a excessão acima, alguem poderia ajudar

Function Saudacao :String;
begin
result:=´Boa-noite!´;
if (time>=0.25) and (time<0.5) then result:=´Bom-dia!´;
if (time>=0.5) and (time<0.80) then result:=´Boa-tarde!´;
end;

a chamada dela é:

StatusBar1.Panels[1].Text:= Saudacao + ´ Hoje é ´+ formatdatetime(´dddddd´,date);

Desde ja agradeço


Dpinho

Respostas

04/08/2004

Biffi

Provavelmente o StatusBar1.Panels[1].Text:= não exista tente StatusBar1.Panels[0].Text:=

deve funcionar....

Esse erro ocorre comigo sempre que tento atribuir um valor para um vetor para um indice maior do que os existentes no vetor....

espero ter ajudado


Responder Citar

05/08/2004

Paulo_amorim

Olá

List Index Out Of Bounds quer dizer que um array acessado não tem tantas posições quanto a que você colocou (no caso, 1).

Como a única coisa que parece com isso eh a StatusBar, deve estar ae o problema (como já disse o Biffi)

Até+


Responder Citar