[Delphi] - Dodanie elementow do listbox

Czesc
Czy moglby mi ktos powiedziec w jaki sposob zmodyfikowac kod, aby po zaznaczeniu elementu z listbox mogl wyswietlac jego wartosci w polach edycyjnych? Zrobilem tylko dwa pole i wartosci sa w nich wyswietlane poprawnie, jednak jak dodaje nastepne i modyfikuje kod, to wartosci sie nie pokazuja :roll: Oto kod:

type
TOferta = class(TForm)
przDodaj: TButton;
edcModel: TEdit;
edcCena: TEdit;
Label1: TLabel;
Label2: TLabel;
lstOferta: TListBox;
procedure FormCreate(Sender: TObject);
procedure przDodajClick(Sender: TObject);
procedure lstOfertaClick(Sender: TObject);
private
{ Private declarations }
Ceny:array [0..9] of real;
LiczbaTowarow:integer;
public
{ Public declarations }
end;

var
Oferta: TOferta;

implementation

{$R *.dfm}

procedure TOferta.FormCreate(Sender: TObject);
begin
LiczbaTowarow:=0;
end;

procedure TOferta.przDodajClick(Sender: TObject);
var
Cena:real;
Blad:integer;
begin
lstOferta.Items.Add(edcModel.Text);
Val(edcCena.Text, Cena, Blad);
Ceny[LiczbaTowarow]:=Cena;
LiczbaTowarow:=LiczbaTowarow+1;
edcModel.Text:='';
edcCena.Text:='';
end;

procedure TOferta.lstOfertaClick(Sender: TObject);
var
NrTowaru:integer;
Cena:real;
strCena:string;
begin
NrTowaru:= lstOferta.ItemIndex;
Cena:=Ceny[NrTowaru];
Str(Cena:3:2, strCena);
edcCena.Text:=strCena;
edcModel.Text:=lstOferta.Items[NrTowaru];
end;

end.

A tak wyglada projekt
http://www.jenniferl...ages/delphi.jpg
Musze jeszcze dodac pola Rok, Nadwozie i Silnik.
Z gory dzieki za pomoc

---

Ja bym tą sprawę rozwiązał inaczej.
Na początek deklarujes objekt:
type
TMyObj = class(TObject)
CenaTowaru: Real;
InneDane: String;
end;

Teraz dodawanie do listy:

var ob: TMyObj;
begin
ob := TMyObj.Create;
ob.CenaTowaru := 20.12;
ob.InneDane := 'Tekst';
ListBox.Items.AddObject(ob.InneDane, ob);
end;

onclick listboxa:

Edit1.text := TMyObj(ListBox.Items.Objects[list]).InneDane;

No i wyświetla tekst w edicie.

W kodzie mogą byc błędy bo pisałem z pamięci.

Look for: http://strefa_progra...ia.w.interia.pl

Criss odbierasz ty poczte ?

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl