Vb6 Vc++6 Vi6 Vj++6 Vb7.net Vc7.net Vc#1.1.net Vj#1.1.net Delphi7 C++builder6 J++builder9 VBA C#builder1.0 Powerbuilder8.1 Oracle9i Sqlserver2001 Lotus Win32Asm procedure TForm1.Button1Click(Sender: TObject); var i:Longint; begin for i:=0 to rg1.Items.Count -1 do begin memo1.Lines.Add(rg1.Items.Strings[i]); end; for i:=0 to lb1.Items.Count -1 do begin memo1.Lines.Add(lb1.Items.Strings[i]); end; for i:=0 to cb1.Items.Count -1 do begin memo1.Lines.Add(cb1.Items.Strings[i]); end; end;
----------------------------------------------