Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Списки в Delphi

Автор: Funky B 2.07.2006 19:54

Если не сложно пожалуйста решите задачу.
Нужно подсчитать число максимальных элементов списка. И наверное создать сам список.
Я буду очень признателен...

Автор: volvo 2.07.2006 19:58

Погоди... Для Дельфи же уже реализовано все. Смотри в сторону класса TList...

А если тебе вообще с нуля - то http://forum.pascal.net.ru/index.php?s=&showtopic=2706&view=findpost&p=23570 (и не забывай про поиск... Решалось уже неоднократно)

Автор: Гость 2.07.2006 20:09

Или я совсем дурак и до меня что-то не доходит или та страница как-то некорректоно у меня отображается?!
Обрывается как-раз в середине текста со списками...

Автор: Funky B 2.07.2006 21:37

Может всё-таки кто-нибудь поможет, вот моя прога создания списка, не судить строго =)
Как к ней приделать нахождение максимальных элементов списка. И как подсчитать число максим. элементов списка? Очень прошу помогите если не сложно!!!

Код
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure button1click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type
PPoint=^elem;
   elem=record
    Info:Integer;
    Next:PPoint;
    end;
var
  Form1: TForm1;
  Start:PPoint=nil;
  Finish:PPoint=nil;
implementation

{$R *.dfm}

procedure TForm1.button1click(Sender: TObject);
var NewPoint:PPoint;
begin
try
NewPoint:=nil;
NEW(NewPoint);
NewPoint.Info:=StrToInt(Edit1.Text);
NewPoint.Next:=nil;
  if Start=nil then
Start:=NewPoint;
    if Finish<>nil then
Finish.Next:=NewPoint;
Finish:=NewPoint;
Form1.ListBox1.Items.Add(IntToStr(NewPoint.Info));
except
   if NewPoint<>nil then
Dispose(NewPoint);
end;
end;

end.

Автор: volvo 3.07.2006 15:41

Ну, например, вот так:



Прикрепленные файлы
Прикрепленный файл  __list.rar ( 2.81 килобайт ) Кол-во скачиваний: 240