paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:00:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

sqlite: fixed warning for fpc 2.3.x

Browse Source 
git-svn-id: trunk@10727 -
This commit is contained in:
mattias 2007-03-09 00:31:28 +00:00
parent 61700dad67
commit f7020ac77c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/sqlite/sqlitecomponenteditor.pas
View File

@ -176,7 +176,8 @@ begin
Close; Close;
Open; Open;
for i:=0 to FieldDefs.Count - 1 do for i:=0 to FieldDefs.Count - 1 do
listFields.Items.AddObject(FieldDefs[i].Name,TObject(FieldDefs[i].DataType)); listFields.Items.AddObject(FieldDefs[i].Name,
TObject(PtrInt(FieldDefs[i].DataType)));
listFields.ItemIndex:=0; listFields.ItemIndex:=0;
Sql:=OldSql; Sql:=OldSql;
Active:=OldActive; Active:=OldActive;
@ -291,7 +292,7 @@ begin
begin begin
Clear; Clear;
for i:= 0 to listFields.Items.Count - 1 do for i:= 0 to listFields.Items.Count - 1 do
Add(listFields.Items[i],TFieldType(listFields.Items.Objects[i])); Add(listFields.Items[i],TFieldType(PtrInt(listFields.Items.Objects[i])));
end; end;
DataSet.CreateTable; DataSet.CreateTable;