Uso D6-PRO
Vejão só, troquei um icone na aplicação e começou a dar o erro acima, POREM
quando incluo o DEBUG para achar a linha o erro simplesmente some...
ai debugando no "SHOWMESSAGE", hehehe, achei a linha mas não acredito que tenha
erro, será que ALLguem pode dar uma olhadinha no código abaixo.
procedure TForm1.ReadAllChannel;
var
ini : tinifile;
x : Integer;
cc : string;
begin
LB_CC.Items.Clear;
Ini := TIniFile.Create('./APPFILE.INI');
ini.ReadSections(LB_CC.Items);
ini.Free;
x := 0;
while x < LB_CC.Count do begin
cc := UpperCase(LB_CC.Items[x]);
if (Pos('C1-',cc)>0) and (Pos('--C2-',cc)>0) then // sempre vai
sobrar de 5 à 100 itens...
Inc(x) else LB_CC.Items.Delete(x);
end;
LB_CC.ItemIndex := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer0.Enabled := true;
end;
procedure TForm1.Timer0Timer(Sender: TObject);
var
Ini: TIniFile;
CNL_, CNL_CDC : string;
pathok : Boolean;
begin
timer0.enabled := false;
pathok := False;
posicao := 'pri';
if ((LB_CC.ItemIndex+1) < (LB_CC.Items.Count)) then begin
LB_CC.ItemIndex := LB_CC.ItemIndex+1
end else begin
ReadAllChannel;
end;
L_CC.Caption := Trim(LB_CC.Items[ LB_CC.itemindex ]); <<<--- aqui da o
erro...
// POREM repito, com o debug incluido não da o erro...
// e só deu o problema depois que troquei o icone da aplicação, vai
entender.....
Obrigado...
[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR
--------------------------------------------------------------------------
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.1 Intl. (Rev. 9429)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 57d) - 2008.10.10
-------------------------------------------------------------------------------------------
[As partes desta mensagem que não continham texto foram removidas]
