VPF::[Delphi]Список - Форум программистов

Rusart

Дата 7.5.2008, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 1.2.2008

Репутация: нет
Всего: нет

кто знает алгоритм чтобы в начало списка записать строку!!!

Код


type
  plistitem=^tlistitem;
  tlistitem=record
  data:string;
  next:plistitem;
end;

procedure init(var head:plistitem);
begin
  head:=nil;
end;

procedure ReadList(FileName:string; var Head:PListItem);// прочитать список
var
  f:text;
  Item:PListItem;
begin
  AssignFile(f, FileName);
  Reset(f);
  new(Head);
  Item:=Head;
  while not eof(f) do begin
    Readln(f, Item^.Data);
    new(Item^.Next);
    Item:=Item^.Next;
  end;
  CloseFile(f);
end;

procedure addend(var head:plistitem; adata:string);// Добавить строку в конец списка
begin
  if head=nil then
  begin
    new(head);
    head^.data:=adata;
    head^.next:=nil;
  end
  else
    addend(head^.next, adata);
end;

procedure addstart(sdata:string);
begin
 /// помогите написать тут 
end;

procedure WriteList(FileName:string; Head:PListItem);
var
  f:text;
begin
  AssignFile(f,FileName);
  Rewrite(f);
  while Head<>nil do
  begin
    Writeln(f,Head^.Data);
    Head:=Head^.Next;
  end;
  CloseFile(f);
end;

procedure show(head:plistitem);
begin
  if head<>nil then
  begin
    writeln(head^.data);
    show(head^.next);
  end;
end;

neic

Дата 7.5.2008, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7

Если я не ошибаюсь, то ты жжёшь.
Могу ошибиться, но должно быть правильно.

Код


...
head = nil; {присваиваем индекс "головы" начала списка}
new(head);{создаём новую запись}
head^.data = adata;{записываем твою строчку}
head^.next = nil;{делаем адрес на следующую запись}
...

П.С. тебе просто нужно было поднять глаза и не много подумать.

Rusart

Дата 8.5.2008, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 1.2.2008

Репутация: нет
Всего: нет

Цитата(neic @ 7.5.2008, 21:36)

Если я не ошибаюсь, то ты жжёшь.
Могу ошибиться, но должно быть правильно.

Код


...
head = nil; {присваиваем индекс "головы" начала списка}
new(head);{создаём новую запись}
head^.data = adata;{записываем твою строчку}
head^.next = nil;{делаем адрес на следующую запись}
...

П.С. тебе просто нужно было поднять глаза и не много подумать.

neic ты замечательные человек, ты меня двинул к одной хорошей мысли, я посмотрел твой код, толька он чтото не работал по началу и я его отредактировал чуть чуть, и все пошло!! спасибо!! smile

твой код тока чуток измененный!!

Код


procedure addstart(var head:plistitem; adata:string);
var
  nhead:plistitem;
begin
  new(nhead);{ńīēäąøģ ķīāóž ēąļčńü}
  nhead^.data := adata;{ēąļčńūāąåģ ņāīž ńņšī÷źó}
  nhead^.next := head;{äåėąåģ ąäšåń ķą ńėåäóžłóž ēąļčńü}
  head:=nhead;
end;

ЗЫ Извиняюсь уважаемый модератор, это будет Делфи код, проблема в том что я не умею менять заглавие у вас на форуме!! а самого начала даже не знал что надо писать что это для делфика, так что прошу прощение!!

neic

Дата 9.5.2008, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7

А ну да... head - это начало, а nil - конец...

Цитата

одной хорошей мысли, я посмотрел твой код, толька он чтото не работал по началу и я его отредактировал чуть чуть, и все пошло!! спасибо!

Рад за тебя =) Молодец, что сам разобрался.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »