Kod: Tümünü seç
procedure TForm1.Image1DblClick(Sender: TObject);
begin
ListBox2.Items.Assign(ListBox1.Items);
end;
Kod: Tümünü seç
procedure TForm1.Image1DblClick(Sender: TObject);
begin
ListBox2.Items.Assign(ListBox1.Items);
end;
Kod: Tümünü seç
// Set
FList.AddObject(AName, TObject(AKoordinat);
// Get
AKoordinat := TKoordinat(FList.Objects[Index]);