|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.10.2007, 14:16 | #11 |
Пользователь
Регистрация: 06.12.2006
Сообщений: 31
|
Ага постараюсь и буду иметь в виду.
|
08.10.2007, 14:25 | #12 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот тебе к раздумью :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type E=Record lointer; a,b:string[100]; nointer; end; //*********************************** *********************************** **** TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var pointer;z:^e; Form1: TForm1; implementation {$R *.dfm} // Кнопка Добавить запись procedure TForm1.Button1Click(Sender: TObject); begin if z<>nil then p:=z; new(z); z.l:=p; z.a:=Edit1.Text; z.b:=Edit2.Text; if p<>nil then e(p^).n:=z; end; // Кнопка показать следующую запись procedure TForm1.Button2Click(Sender: TObject); begin if e(p^).n<>nil then begin p:=e(p^).n; Edit1.Text:=e(p^).a; Edit2.Text:=e(p^).b; end;{} end; // Кнопка Показать предидушую запись procedure TForm1.Button3Click(Sender: TObject); begin if e(p^).l<>nil then begin p:=e(p^).l; Edit1.Text:=e(p^).a; Edit2.Text:=e(p^).b; end;{} end; end. Обьяснить код или разберешся?
I'm learning to live...
|
08.10.2007, 14:45 | #13 |
Пользователь
Регистрация: 06.12.2006
Сообщений: 31
|
Ой спасибинки.Дааа и у тебя и скорость.Ну пока понятно. Если ще крикну. А ты сам кто программист да?
|
08.10.2007, 14:50 | #14 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну, кажись, одной ногой там )))
Если что в Асю можеш стучать
I'm learning to live...
|
08.10.2007, 14:54 | #15 |
Пользователь
Регистрация: 06.12.2006
Сообщений: 31
|
А сюда сразу не можешь скинуть номер а? Так быстрее был бы.
|
08.10.2007, 14:58 | #16 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Аськи? 420162866
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ДИНАМИЧЕСКИЕ СТРУКТУРЫ ДАННЫХ | shvarz | Общие вопросы C/C++ | 1 | 10.05.2008 19:48 |