![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Всем Привет,после завтра защита курсовой,у меня тема Одномерный массив вектор на delphiнадо программу какую нибудь сделать на delphi про масивы,кто поможет пожалуста век не забуду
![]() |
|
#2
|
||||
|
||||
|
Цитата:
|
|
#3
|
|||
|
|||
|
да какие девочки,просто непонимаю а так в программистики шарю,шарю в php,пишу двиги,,
|
|
#4
|
|||
|
|||
|
прошу помогите,,,добром отвечу люди)
|
|
#5
|
||||
|
||||
|
Набери в поиске нужный запрос. Эта тема неоднократно обсуждалась и ответов также было достаточно.
|
|
#6
|
|||
|
|||
|
гуглю уже целый день,,не могу найти готовую прогу,
![]() |
|
#7
|
||||
|
||||
|
Код:
type
PMyRecord = ^TMyRecord;
TMyRecord = record
buf : array[Byte];
next : PMyRecord;
end;
var
MyRecord : PMyRecord = NIL;
...
procedure AddRecord;
var
P : PMyRecord;
begin
New(P);
P^.next := MyRecord;
P^.Buf[0] := 0;
MyRecord := P;
end;
...
procedure ClearRecord;
var
P : PMyRecord;
begin
while MyRecord <> nil do
begin
P := MyRecord;
MyRecord := P^.Next;
Dispose(P);
end;
end; |