فراخوانی اطلاعات یک جدول در یک listview به جای dbgrid

[ahmadbadpey]

با سلام خدمت دلفی کاران عزیز
می خواستم بدونم چه جوری میشه محتویات یک جدول در دیتابیس رو به جای dbgrid در یک listview فراخوانی کرد لطفا اگه میشه یه مثال هم بزنین.

[vcldeveloper]

ListViewایی که Data-aware باشه، بطور استاندارد وجود نداره. یا باید دنبال کامپوننتی باشید که همچین قابلیتی را ارائه کرده باشه، یا باید خودتون براش کد بنویسید.

[zman123456]

procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
NewColumn: TListColumn;
ListItem: TListItem;
ListView: TListView;
begin
ADOTable1.First;
with ListView1 do
begin
Parent := Self;
//Align := alClient;
ViewStyle := vsReport;
Font.Name:='tahoma';
NewColumn := Columns.Add;
NewColumn.Caption := 'Code';
NewColumn := Columns.Add;
NewColumn.Caption := 'Name';
for I := 0 to ADOTable1.RecordCount - 1 do
begin
ListItem := Items.Add;
ListItem.Caption :=ADOTable1id.AsString;
ListItem.SubItems.Add(ADOTable1FullName.AsString);
ADOTable1.Next;
end;
end;
end;
حالا شما میتونید اینو تو OnCreate فرمتون بذارید.

[vcldeveloper]

حالا شما میتونید اینو تو OnCreate فرمتون بذارید.
همیشه برای اینجور کدها که در یک حلقه بخشی یا همه رکوردهای یک دیتاست را پیمایش می کنید، از DisableControls و EnableControls استفاده کنید تا کارایی کد به میزان زیادی افزایش پیدا کنه.
قبلا درباره اش در همین سایت بحث کردیم.

[علی روشن]

جناب آقای کشاورز من هم این مشکل را دارم این کد شما را دیدیم ولی نمی دانم ADOTable1id و ADOTable1FullName.AsString چه دیتابیسی است اگر لطف کنید بیشتر توضیح بدهید متشکرم

[سعید صابری]

id و FullName نام فیلدهاجدولی هستند که ADOTable1 به آنها متصل می باشد

[علی روشن]

جناب آقای مهندس صابری برای دستور العمل خواندن محتویات داخل listview چگونه است لطفاً در صورت امکان راهنمایی نمایید .