paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 15:48:34 +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;
Open;
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;
Sql:=OldSql;
Active:=OldActive;
@ -291,7 +292,7 @@ begin
begin
Clear;
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;
DataSet.CreateTable;