Delphi Опции

[Makvit]

Кто-нить может подсказать, как работать с классом TThread? (мультипоточность)

[Pushistik]

Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее....

[Bulvinkole]

Люди, у кого-нибудь есть инфа:"Динамические списки динамических очередей"??? Плииииз, помогитееее....

Вот пример создания динамического списка...

unit bul_och;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit; // строчка, для завполнения (может быть что угодно - например Ф.И.О)*1
Edit2: TEdit; // строчка, для завполнения (может быть что угодно - например год рождения)*2
Button1: TButton; // кнопка добавления в список
Button2: TButton; // кнопка для показа списка
procedure Button1Click(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]; // *1
l_name: string[20]; // *2
next: TPStudent; // следующий элемент списка
end;

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

// добавление нового элемента в начало списка

procedure TForm1.Button1Click(Sender: TObject);
var
curr: TPStudent; // создание нового элемента для списка
begin
new(curr); // выделение памяти для нового элемента
curr^.f_name := Edit1.Text;
curr^.l_name := Edit2.Text;

// добавление нового элемента в начало списка
curr^.next := head;
head := curr;

// очищает поля ввода
Edit1.text := ′′;
Edit2.text := ′′;
end;

// показывает весь список

procedure TForm1.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^.l_name + #13;
curr := curr^.next;
end;

if n <> 0
then ShowMessage(′Список:′ + #13 + st)
else ShowMessage(′Список пуст.′);
end;

end.

[Deja Vu]

Вот пример создания динамического списка...

Ой ужасть....
А "array [0..1] of array of string;" нельзя?!