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

[SanekWK]

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

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

ух ты. убрал в начале p:=nil; бесконечности не наблюдаю. выводит содержимое, но при вводе нового значения ничего не происходит. не могу понять почему он не сохраняет и не выводит второе значение. первое сохранил и всё. потом пусто

[Stilet]

на memo1.Lines.Append(...

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

Полный код в студию - оценим по шкале Дурихтера

[GreenWizard]

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

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

вот давай без нытья))) опасно это)
запомни: если что-то не работает и ты не понимаешь вообще код, то бери лист бумаги и вручную обсчитывай каждую строку кода!
ты добавляешь узел верно, но перед этим пишешь p := nil и теряешь ранее добавленные узлы
кроме того, как заметил Stillet, ты пишешь "memo1.Text := ......" и каждый раз стираешь старые значения..... напиши memo1.Lines.Add(.......)

[SanekWK]

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

на memo1.Lines.Append(...

Полный код в студию - оценим по шкале Дурихтера

строго не судите, могу добавить коментарии

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Label2: TLabel;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    memo1: TMemo;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;
  pnode=^node;
  node=record
  next:pnode;
  age:Integer;
  isMJ:Boolean;
  education:Byte;
  vopros:Boolean;
  end;
var
  Form1: TForm1;
  shet,code,qq:Integer;
  p,q,t:pnode;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
   Form1.Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Val(Edit1.Text,qq,code);
 if code=0 then
 begin
 New(q);
 q^.age:=StrToInt(Edit1.Text);
 q^.next:=nil;
 if p=nil then p:=q
 else
 begin
 t:=p;
 while t^.next<>nil do
 t:=t^.Next;
 t^.Next:=q;
 end;
 end

 else
 ShowMessage('Îøèáêà');
end;
procedure TForm1.Button2Click(Sender: TObject);
var t:pnode;
begin
  t:=q;
 if t=nil then ShowMessage('ÏÓñòîé ëèñò')
 else
 begin
  while (t<>nil) do begin
 memo1.Lines.add(FloatToStr(t.age));
 t:=t^.next;
 end;
end;

end;
end.

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

вот давай без нытья))) опасно это)
запомни: если что-то не работает и ты не понимаешь вообще код, то бери лист бумаги и вручную обсчитывай каждую строку кода!
ты добавляешь узел верно, но перед этим пишешь p := nil и теряешь ранее добавленные узлы
кроме того, как заметил Stillet, ты пишешь "memo1.Text := ......" и каждый раз стираешь старые значения..... напиши memo1.Lines.Add(.......)

блин, вписал да, теперь он выводит только последнее сохранённое. например я три раза ввожу возраст: 12 жму кнопку первую, на которой весь код button3click, еще раз ввожу какой нибудь возраст и так далее. потом жму кнопку на вывод в memo и он выводит только последнее число

вот програмка с исходниками

[GreenWizard]

procedure TForm1.Button1Click(Sender: TObject);
begin
 Val(Edit1.Text,qq,code);
 if code=0 then
 begin
 New(q);
 q^.age:=StrToInt(Edit1.Text);
 q^.next:=nil;
 if p=nil then p:=q
 else
 begin
 t:=p;
 while t^.next<>nil do
 t:=t^.Next;
 t^.Next:=q;
 end;
 end

 else
 ShowMessage('Îøèáêà');
end;

%*№!!!!!! ты тут один код постишь, а у себя пишешь другой? откуда тут проход, ещё и такой корявый?

ты же писал:

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;

[SanekWK]

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

procedure TForm1.Button1Click(Sender: TObject);
begin
 Val(Edit1.Text,qq,code);
 if code=0 then
 begin
 New(q);
 q^.age:=StrToInt(Edit1.Text);
 q^.next:=nil;
 if p=nil then p:=q
 else
 begin
 t:=p;
 while t^.next<>nil do
 t:=t^.Next;
 t^.Next:=q;
 end;
 end

 else
 ShowMessage('Îøèáêà');
end;

%*№!!!!!! ты тут один код постишь, а у себя пишешь другой? откуда тут проход, ещё и такой корявый?

это я подкорректировал) не могу понять просто смысл основной. до меня вообще что то долго доходит. ни книг ни учебников. в паскале одно пишут. на форуме другое

[GreenWizard]

что тебе сказать? нужно просто сесть и разобраться.

[SanekWK]

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

что тебе сказать? нужно просто сесть и разобраться.

по пальцам можешь обьяснить как односвязный линейный список организовать, сохранить в него данные и вывести его весь на экран. ) Я то что моими криворучками написано выложил, открыть можете у себя

[SanekWK]

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

вот програмка с исходниками

вот гляньте если не сложно, названия кнопок правда не совпадают. но это мелочи

[Stilet]

Пример в 13-м посте не помог?