Однонаправленный неоднородный (гетерогенный) список с однородными подсписками.

[Chudo4258]

если я пишу тип: variant, то элемент этого типа я не могу ввести с клавиатуры(в делфи пишет такую ошибку "[Error] Project2.dpr(27): Illegal type in Read/Readln statement").
Что делать???

[Stilet]

А ты не консольную прогу делай, а оконную
Расставь там Эдиты и в них вводи )

[Chudo4258]

дак мнеб в консоле желательно.

[Stilet]

Тогда делай так: Вооди строку, а ее уж Варианту присваивай, он сам разберется

var a:Variant;s:string;i:integer;
begin
readln(s);
a:=s;
i:=a+12 ;
 writeln(i);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

А дальше уж преобразовывать можно как угодно, как видиш.

[Chudo4258]

Если я буду использовать тип variant у меня получается однотипный список(с элементами типа variant), а мне надо гетерогенный.
Короче задачу можно решать так: создать два отдельных списка(например integer и char)заполнить их элементами, а затем их соединить, но вот это соединеие у меня не получеется.
S_int_nach - ссылка на начало типа integer
S_int_kon - ссылка на конец типа integer
S_char_nach - ссылка на начало типа char
а теперь нужно S_int_kon^.Next:=S_char_nach
Но так как эти два типа разные, то я не могу их соединить, вот в этом вся проблема.


Подскажите как это можно сделать???

[Chudo4258]

Ну подскажите как быть в такой ситуации???

[Serge_Bliznykov]

мне лень писать с нуля. Выложите код, который работает и полностью Вас устраивает за исключением того, что список ГОМОГЕННЫЙ!!
либо сами допишите...
есть несколько вариантов сделать то, что Вы хотите.
Например, используя записи с вариантами:

 Class  = (Num, Dat, Str);
 UU = ^ZvenoVar;
 ZvenoVar = record
   Next: UU;
   case Kind: Class of
     Num: (N: real);
     Dat: (D: Integer);
     Str: (S: string);
 end;

или, банально объявить разные типы записей и нанизывать их друг на друга:

Type 
     Zveno1 = Record
        ZType : byte;
        Inf : Integer;
        Next: Pointer
     End;
     Zveno2 = Record
        ZType : byte;
        Inf : String[40];
        Next: Pointer
     End;
     Zveno3 = Record
        ZType : byte;
        Inf : Real;
        Next: Pointer
     End;

Var
  V1 : ^Zveno1;
  V2 : ^Zveno2;
  V3 : ^Zveno3;
Begin
  New(V1);
  V1^.ZType := 1;
  V1^.Inf := 100;

  New(V2);
  V2^.ZType := 2;
  V2^.Inf := 'Testing';
  V2^.Next := Nil;

  V1^.Next := V2
end.

[Chudo4258]

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

[Serge_Bliznykov]

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

Вы можете мне поверить, что я такую задачу способен решить и без кода, выложенного Вами в начале (да и решал многократно). Просто мне некогда (да и лень, если честно) прикручивать эти процедуры к программе или писать всё заново...
Ну не важно - идея Вам ясна (и даже две :-)
Дерзайте!
Желаю успехов!

[Chudo4258]

Class  = (Num, Dat, Str);
 UU = ^ZvenoVar;
 ZvenoVar = record
   Next: UU;
   case Kind: Class of
     Num: (N: real);
     Dat: (D: Integer);
     Str: (S: string);
 end;

[Error] Project2.dpr(8): PROCEDURE or FUNCTION expected

Подскажите что за ошибка и как ее исправить????