12.10.2023, 07:56
|
Новичок
|
|
Регистрация: 18.03.2009
Сообщения: 71
Репутация: 10
|
|
Как передавать данные из listbox
Здравствуйте! вот таким образом заполняется listbox
Код:
procedure TForm1.AddToMemoCb(AFileName,Atrib:String; ASize,Aid,Arews:Integer);
begin
listbox1.Items.Add(Format('id: %d; File: %s; Size: %d; Reviews: %d; Attribute: %s',[Aid,AFileName,ASize,Arews,Atrib]));
end;
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
FileImg('G:\leon\delphis\delphi64\sql2\05\Win32\Debug\db\',AddToMemoCb);
end;
как сделать чтобы когда listbox был заполнен, что бы данные передавались в
Код:
procedure TForm1.AddToDbCb(AFileName,Atrib:String; ASize,Aid,Arews: Integer);
begin
SqlConnection1.Open;
try
SqlQuery1.SQL.Text := 'INSERT INTO test1 (id, name, reviews, size, attribute) VALUES (:id, :name, :reviews, :size, :attribute)';
{INSERT INTO Info (id,Cost,city) VALUES (1,200, 'Pune'), (2, 150,'USA'), (3,345, 'France'); }
SqlQuery1.ParamByName('id').AsInteger := Aid;
SqlQuery1.ParamByName('name').AsString := AFileName;
SqlQuery1.ParamByName('reviews').AsInteger := random(5);// Arews;
SqlQuery1.ParamByName('size').AsInteger := ASize; //inttostr(imgsize);
SqlQuery1.ParamByName('attribute').AsString := 'fff';
SQLQuery1.ExecSQL; Memo1.Lines.Add('Запись_добавлена='+inttostr(Aid)+Afilename+inttostr(ASize));
finally
//PachImage; //добавка в listbox5
SqlConnection1.Close;
end;
//Application.ProcessMessages;
end;
но, не сразу все а по строкам, т.е. первая строка записалась, пошла вторая
|