[xsenom]

программа состоит из нескольких Edit'oв , Button'oв и одного Listbox ...
Из Edit'oв информация добавляется в Listbox, как после двойного щелчка по строчке находящейся в Listbox информацию можно было вернуть обратно в Edit's ???

[AND_REY]

Примерно так:

Код:

1 2 3 4

procedure TForm1.ListBox1DblClick(Sender: TObject); begin Edit1.Text:= ListBox1.Items.Strings[ListBox1.ItemIndex]; end;

[xsenom]

спасибо, но все Edit'ы заполняются одними и теми же строками... вот код прогрыммы написанный мной ранее:
unit Unit1;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144

interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Edit4: TEdit;     Edit5: TEdit;     Edit6: TEdit;     Button1: TButton;     Button2: TButton;     Button3: TButton;     ListBox1: TListBox;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Edit7: TEdit;     Edit8: TEdit;     Label7: TLabel;     Label9: TLabel;     Button4: TButton;     Button5: TButton;     SaveDialog1: TSaveDialog;     OpenDialog1: TOpenDialog;     Button6: TButton;     Button7: TButton;     Button8: TButton;     Label8: TLabel;     Edit9: TEdit;     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure ListBox1Click(Sender: TObject);     procedure Button5Click(Sender: TObject);     procedure Button6Click(Sender: TObject);     procedure Button7Click(Sender: TObject);     procedure Button8Click(Sender: TObject);     procedure Button9Click(Sender: TObject);         private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button2Click(Sender: TObject); begin   Edit1.Text:='';   Edit2.Text:='';   Edit3.Text:='';   Edit4.Text:='';   Edit5.Text:='';   Edit6.Text:='';   Edit7.Text:='';   Edit8.Text:='';   Edit9.Text:=''; end;   procedure TForm1.Button3Click(Sender: TObject); begin Close; end;   procedure TForm1.Button1Click(Sender: TObject); begin        ListBox1.Items.Add(Edit1.Text+', '+Edit2.Text+' '+Edit3.Text); end;     procedure TForm1.Button4Click(Sender: TObject); begin    ListBox1.Items.Clear; end;   procedure TForm1.ListBox1Click(Sender: TObject); begin      Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit2.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit3.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit4.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit5.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit6.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit7.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit8.Text:=ListBox1.Items[ListBox1.ItemIndex];     Edit9.Text:=ListBox1.Items[ListBox1.ItemIndex]; end;   procedure TForm1.Button5Click(Sender: TObject); begin    ListBox1.Items.Delete(1); end;         procedure TForm1.Button6Click(Sender: TObject); begin      if OpenDialog1.Execute then               ListBox1.Items.LoadFromFile(OpenDialog1.FileName);  OpenDialog1.Filter:='.txt; .ini; .tmp'; end;   procedure TForm1.Button7Click(Sender: TObject); begin SaveDialog1.Execute;               ListBox1.Items.SaveToFile(SaveDialog1.FileName); end;   procedure TForm1.Button8Click(Sender: TObject); begin  with SaveDialog1 do       if Execute then         begin            ListBox1.Items.SaveToFile('FileName');            OpenDialog1.FileName:=FileName;         end; end;   procedure TForm1.Button9Click(Sender: TObject); begin  Close; end;   end.

lmikle: Хде теги???

[lmikle]

А ты чего хотел?
Если ты хочешь вернуть значение в тот же едит, из которого оно получалось, то надо где-то эту инфу сохранять. Например, сделать свой класс и его экземпляры цеплять к добавляемым итемам, а при возврате читать эту информацию и соответсвенно распихивать по едитам...

[xsenom]

Можно немного поподробней на счёт этого, просто совсем недавно начал сидеть в делфе...

[lmikle]

Ну тогда тебе такие фокусы рано делать. в принципе, можно добавлять итемы не через add, а через AddObject, где вторым параметром идет ссылка на экземпляр какого-нить класса. Если бы у тебя итемы добавлялись строго из одного едита (один едит - один итем), то можно было бы сделать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.btAdd1Click(Sender : TObject); begin   Listbox1.Items.AddObject(Edit1.Text,TObject(Edit1)); end;   procedure TForm1.btAdd2Click(Sender : TObject); begin   Listbox1.Items.AddObject(Edit2.Text,TObject(Edit2)); end;   procedure TForm1.Listbox1DblClick(Sender : TObject); begin   If ListBox1.ItemIndex > -1 Then     TEdit(Listbox1.Items.Objects[ListBox1.ItemIndex]).Text := Listbox1.Items[ListBox1.ItemIndex]; end;

Т.к. у тебя итем комбинируется из нескольких едитов, то тебе надо написать свой класс, в который ты просто сохранишь из какого едита пришла та или иная подстрока. Этот класс подцепляется к итему (второй параметр AddObject) и при клике из этого класса и производится восстановление информации. Только надо не забывать аккуратно эти классы удалять при удалении итемов.

[xsenom]

спасибо огромное)