| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Дан файл, состоящий из чисел [D6, XP]

Страницы:   < 1 2 >

Wildyt ©   (2008-05-31 21:53:00) 

Привет!!
Помогите мне сделать задание.  :(
----------------------------------------------------------------------------------
Задание:
Линейные динамические структуры...( работа со списками)
Дан файл, состоящий из чисел. Перевернуть его, прочитав в память..
----------------------------------------------------------------------------------
Вот что я сделал пока что - толко проблема в том  ,что числа из файла читаются 1 2 3 4 5 - тоесть как и записаны, а мне надо чтобы это числа вывелись в перевёрнутом виде. 5 4 3 2 1 .


type pList= ^TList;
 TList=record
 info :integer;
 next: pointer;
   end;

procedure TForm1.Button1Click(Sender: TObject); //  при нажатии на кнопку..
var i,a:integer;
k,otvet:string;

F:TextFile;
First,tmp: ^TList;
begin
First:= nil;
   AssignFile(F,'data.txt');
   Reset(F);
   While not EOF(F) do
       begin
         Read(F,a);
         new (tmp);
         tmp^.info:=a;
         tmp^.next:=First;

while  tmp<> nil do
    begin
     Memo1.Lines.Add(IntToStr(tmp^.info));
     tmp:=tmp^.next;
end;

 end;
   CloseFile(F);
 end;

читаю книги,не достаточно инфы, помогите пожалуйста!!!
Зарание спасибо!

---

Wildyt   (2008-05-31 22:06:00) [21]

Даааа книга тоже.. не всё даёт знать ((
Знаю что ,список  и читаться с конца ..
Что я не прваельно делаю??

---

{RASkov}   (2008-05-31 22:04:00) [22]

> [3] Wildyt   (31.05.08 22:02)
> Стыренный код???????
>
> Это всё что я взял с книги.

:)
Стырил с книги :) Или нет? Не сам же придумал)
Ладно.... не кипятись) [2] изучай :)

---

Wildyt   (2008-05-31 22:02:00) [23]

Стыренный код???????

Это всё что я взял с книги.
И сделал свою часть.

Легче сказать   - нежели помочь.

---

Германн   (2008-05-31 21:58:00) [24]

Ничего не меняя можно заменить Lines.Add на Lines.Insert(0,...

---

{RASkov}   (2008-05-31 21:56:00) [25]

> [0] Wildyt   (31.05.08 21:53)

Как все сложно..... Перепиши этот код в "пять" строчек (убери лишнее) потом можно будет и поговорить....
В прочем, потом и сам сделаешь, если сможешь стыренный код упростить под свою задачу....

---

Страницы:   < 1 2 >

Наверх