لیست باکس مجازی در دلفی

کد:
// Full Unit code.

// -----------------------------------------------------------

// You must store this code in a unit called Unit1 with a form

// called Form1 that has an OnCreate event called FormCreate.

 

unit Unit1;

 

interface

 

uses

  Classes,   // Unit containing the TStringList command

  Forms, Dialogs;

 

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  end;

 

var

  Form1: TForm1;

 

implementation

{$R *.dfm} // Include form definitions

 

procedure TForm1.FormCreate(Sender: TObject);

var

  animals : TStringList;            // Define our string list variable

  i       : Integer;

begin

  // Define a string list object, and point our variable at it

  animals := TStringList.Create;



  // Now add some names to our list

  animals.Add('Cat');

  animals.Add('Mouse');

  animals.Add('Giraffe');



  // Now display these animals

  for i := 0 to animals.Count-1 do

    ShowMessage(animals[i]);  // animals[i] equates to animals.Strings[i]



  // Free up the list object

  animals.Free;

end;

 

end.