Форум программистов [Powered by Invision Power Board]

Цитата(ruslandlion @ 21.12.2006, 20:24

)

Помогите пожалуста разобраться с этой темой. Заранее спасибо.

Код


type
  A = record
    b : string;
    c : char;
    d : Integer;
  end;

var
  E : A;

begin
  E.b := 'Hello';
  E.c := 'A';
  E.d := 123;

  ShowMessage(E.b);
  Sum := 123 + E.d;
end;

Код


var 
  List: tList; 
  Item: pSomeType; 
  I: Integer; 
begin 
{ Создаем список } 
  List := tList.Create; 
{ Пишем данные для списка } 
  for I := 1 to SpinEdit1.Value do 
    begin 
{ Распределяем уникальный экземпляр данных } 
      New(Item); 
      Item^ := I; 
      List.Add(Item); 
    end; 
{ Читаем данные из списка - базовый индекс списка 0, поэтому вычитаем из I единицу } 
  for I := SpinEdit1.Value downto 1 do 
    ListBox1.Items.Add('Элемент ' + 
      IntToStr(pSomeType(List.Items[I - 1])^)); 
{ Освобождаем лист } 
  for I := 1 to SpinEdit1.Value do 
    Dispose(List.Items[I - 1]); 
  List.Free;

Код


type    
  A = record    
    b : string;    
    c : char;    
    d : Integer;    
  end;    
PointerToA = ^A;

var P: PointerToA;

begin
  P := GetMemory(sizeof(A));
  P.b := 'sdsd';
  P.c := chr(30);
  P.d := 22;
  ShowMEssage(P.b);
  FreeMemory(P);
end;

Код


unit dlist1_; interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit; // фамилия 
Edit2: TEdit; // имя 
Button1: TButton; // кнопка Добавить 
Button2: TButton; // кнопка Показать 
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender: TObject); 
private
{ Private declarations } public
{ Public declarations } 
end;

var
Form1: TForm1;

implementation


{$R *.DFM)


type

TPStudent=^TStudent; // указатель на тип TStudent 


TStudent = record
f_name:string[20]; // фамилия 
l_name: string[20]; // имя 
next: TPStudent; // следующий элемент списка 
end;


var

head: TPStudent; // начало (голова) списка 

// добавить элемент в начало списка 
procedure TForml.Button1Click(Sender: TObject);
var
curr: TPStudent; // новый элемент списка 
begin
new(curr); // выделить память для элемента списка 
curr^.f_name := Edit1.Text;
curr^.1_пате := Edit2.Text;

// добавление в начало списка 
curr^.next := head; head := curr;
// очистить поля ввода 
Edit1.text:=''; Edit2.text: = " ; 
end;

// вывести список 

procedure TForml.Button2Click(Sender: TObject); 
var
curr: TPStudent; // текущий элемент списка 
n:integer; // длина (кол-во элементов) списка 
st:string; // строковое представление списка 
begin 
n := 0; st := '';
curr := head; // указатель на первый элемент списка 

while curr <> NIL do begin
n := n + 1;

st := st + curr^.f_name + ' ' + curr^.1_name +#13; curr := curr^.next; 

// указатель на следующий элемент end;

if n <> 0
then ShowMessage('Список:' + #13 + st)
else ShowMessage('В списке нет элементов.');

end; 

end.

Код


var s:String;

Цитата(Albinos_x @ 21.12.2006, 21:14

)

А что непонятно-то с этой темой?