13.10.2023, 06:55
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,016
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну можено парсить обратно. Но я бы просто создал бы объектики и привязал их к итемам листбокса (через AddObject).
Код:
type
TFileItemData = class
FileName : String;
Atrib : String;
Size : Integer;
id : Integer;
rews:Integer;
function toString : String;
end;
function TFileItemData.toString : String
begin
Format('id: %d; File: %s; Size: %d; Reviews: %d; Attribute: %s',[id,FileName,Size,rews,Atrib]);
end;
тогда заполнение:
Код:
procedure TForm1.AddToMemoCb(AFileName,Atrib:String; ASize,Aid,Arews:Integer);
var
obj : TFileItemData;
begin
obj := TFileItemData.Create;
obj.id = aid;
obj.FileName := AFileName;
obj.Size := ASize;
obj.rews := Arews;
obj.Atrib := Atrib;
listbox1.Items.AddObject(obj.toString,obj);
end;
Ну и передача:
Код:
obj := ListBox1.Items.Objects[0]; // Здесь индекс элемента
AddToDbCb(obj.FileName,obj.Atrib, obj.Size, obj.id, obj.rews);
Только чистить объекты не забывай когда удаляешь элементы из листбокса.
|