Problem Combobox, Zeosbd e firebird
lazarus / 16-Databases

----------------------------------------------------------------------
pcsilva · 2013-02-25 12:55

Olá a todos! Não consigo verificar qual item da combobox foi gravado
no banco, no delphi funcionava assim.Qual é a forma correta no
lazarus.

messager Error:
List index (13) out of bounds
Code: [Select]procedure TfrmCadastroProjeto.Atualiza(codprojeto:
integer);
var
  i:integer;
begin
  With QAtualiza do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM PROJETO WHERE CODIGO = '+
QuotedStr(IntToStr(codprojeto)));
    Open;
    for i := 0 to cbCidade.Items.Count do
    begin
      if fieldbyname('CIDADE').AsString  = cbCidade.Items.Strings[i]
then
        cbCidade.ItemIndex:= i;
    end;

----------------------------------------------------------------------
mjseven · 2013-02-25 13:08

for i := 0 to cbCidade.Items.Count do

change

for i := 0 to cbCidade.Items.Count -1 do