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

Delphi

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

Dpinho

Curtidas 0

Respostas

Biffi

Biffi

04/08/2004

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


GOSTEI 0
Paulo_amorim

Paulo_amorim

04/08/2004

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é+


GOSTEI 0
POSTAR