[fpc-pascal]TStringList index
Hi all, This code has been driving me nuts for the past week. IDs:=TStringList.Create; for i:=0 to Datab.List_Field.Count-1 do begin Tmp:=TStringList(Datab.List_Field.items[i]); IDs.Strings[i]:=Tmp.Strings[0]; Tmp.Free; end; It crashes with An unhandled exception occurred at 0x08062FE5 : ESTRINGLISTERROR : List index exceeds bounds (0) 0x08062FE5 Datab.List_Field.Count-1=18. It appears that IDs is not letting me write to item i. Any ideas? Thanks, Taj ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal]TStringList index
Hi Vincent, Instead do: IDs.Add(Tmp.Strings[0]); Aha! Thank you! --Taj -- panic: kernel trap (ignored) ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
RE: [fpc-pascal]TStringList index
- Original Message - From: Taj Morton [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, March 14, 2004 1:04 PM Subject: [fpc-pascal]TStringList index Hi all, This code has been driving me nuts for the past week. IDs:=TStringList.Create; for i:=0 to Datab.List_Field.Count-1 do begin Tmp:=TStringList(Datab.List_Field.items[i]); IDs.Strings[i]:=Tmp.Strings[0]; Tmp.Free; end; IDs.Strings[i] its not allocated, try IDs.Add(Tmp.Strings[0]) instead Regards Jesus Reyes A. ___ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal