Подмогните с лабой) компонент TstringList нельзя брать((((

[SanekWK]

Сообщение от Stilet

И у тебя это получилось. Твой код записывает значение в список. По крайней мере этот участок кода, что ты выложил.

но забиндив кнопочку на вывод

PHP код:

var next:pnode;
begin
 ShowMessage(IntToStr(next^.age));
end; 


получаю

[GreenWizard]

Сообщение от SanekWK

Вот к примеру, я хочу записать значение возраста в список.

begin
 Val(Edit1.Text,q,code);
 if code=0 then
 begin
 New(next);
 next^.age:=StrToInt(Edit1.text);
 end
else ShowMessage('Çàïîëíèòå âñå ïîëÿ!');

1) это лишь создание в памяти экземпляра записи о человек, но не сохранение в список
2) запись хранит всю информацию о человеке, поэтому нельзя добавить один возраст..... псевдокод:

валидация ВСЕХ данных
если всё ок, то:
  1)  создать новую запись (New(tmp))
  2) заполнить все поля (tmp^.Age и т.д.)
  3) добавить tmp в список (в конец желательно)

у тебя нет п.3 и нужно объединить валидацию и сохранение всех данных т. е. нажали кнопку "добавить" - добавили одну "личность" в список
кроме того, тебе нужно будет перед выходом уничтожить список
в основе всех этих операций лежит прямой проход по списку, код которого я выше приводил

Сообщение от SanekWK

но забиндив кнопочку на вывод

PHP код:

var next:pnode;
begin
 ShowMessage(IntToStr(next^.age));
end; 


получаю

сам написал "var nextnode;" т. е. это ДРУГАЯ совсем переменная
как минимум, перенеси её на место после Form1: TForm1, чтоб она стала глобальной и одной на всю программу

[Stilet]

SanekWK, могу я тебе порекомендовать такой пример для разбора?:
http://www.programmersforum.ru/showthread.php?t=87357
То, что написал ты конечно же не годится хотя бы потому, что ты используешь не глобальную переменную для вывода значения из списка, и уверен что наполняешь его тоже не правильно.

[SanekWK]

Спасибо вам что мучаетесь со мною. буду пытаться. до меня маленько доходит

Сообщение от Stilet

SanekWK, могу я тебе порекомендовать такой пример для разбора?:
http://www.programmersforum.ru/showthread.php?t=87357
То, что написал ты конечно же не годится хотя бы потому, что ты используешь не глобальную переменную для вывода значения из списка, и уверен что наполняешь его тоже не правильно.

все сделал! Програмка теперь записывает в себя возраст!! но при выводе например в компонент memo у нее происходит бесконечный цикл! тупо виснет . где ошибка((

procedure TForm1.Button1Click(Sender: TObject);
begin
 p:=nil;
 Val(Edit1.Text,qq,code);
 if code=0 then
 begin
 New(q);
 q^.age:=StrToInt(Edit1.Text);
 q^.next:=p;
 p:=q;
 end
 else
 ShowMessage('ohibka');
end;
procedure TForm1.Button2Click(Sender: TObject);
var t:pnode;
begin
  t:=p;
 if t=nil then ShowMessage('List pust')
 else
 begin
  while (t<>nil) do
 memo1.Text:=FloatToStr(t.age);
 t:=t^.next;
 end;
end;

подмогни((

[GreenWizard]

вот честно, вижу все эти p, q и охота послать подальше...... может ты там гений и тебе легко запомнить что и где хранится, а мы тут ленивые и тупые, поэтому называем переменные более осмысленно, чтоб не думать лишний раз
---------------
и либо ты ещё где-то ещё дёргаешь свою Пи (p), либо она вначале вовсе не nil (что бывает, поэтому в onCreate пишем p := nil; )

[Stilet]

Правильно. Ты сам бесконечный цикл описал )
Надо так:

while (t<>nil) do begin
 memo1.Append(FloatToStr(t.age));
 t:=t^.next;
end;

Внимательнее читай что по ссылке написано.

[SanekWK]

Сообщение от Stilet

Правильно. Ты сам бесконечный цикл описал )
Надо так:

while (t<>nil) do begin
 memo1.Append(FloatToStr(t.age));
 t:=t^.next;
end;

Внимательнее читай что по ссылке написано.

на memo1.Append ругается((
[Error] Unit1.pas(77): Undeclared identifier: 'append'

[SanekWK]

Сообщение от GreenWizard

вот честно, вижу все эти p, q и охота послать подальше...... может ты там гений и тебе легко запомнить что и где хранится, а мы тут ленивые и тупые, поэтому называем переменные более осмысленно, чтоб не думать лишний раз
---------------
и либо ты ещё где-то ещё дёргаешь свою Пи (p), либо она вначале вовсе не nil (что бывает, поэтому в onCreate пишем p := nil; )

я писал в самом начале

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 p:=nil;
 Val(Edit1.Text,qq,code); 


и

PHP код:

p,q:pnode; 


[GreenWizard]

Сообщение от SanekWK

я писал в самом начале

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 p:=nil;
 Val(Edit1.Text,qq,code); 


и теряешь корень списка....

[SanekWK]

Сообщение от GreenWizard

и теряешь корень списка....

я настолько безнадежен?