Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Список объектов на основе класса TList 2

Delphi , Компоненты и Классы , Списки

Список объектов на основе класса TList 2

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin, ImgList, ComCtrls, ToolWin;

type
  TMainForm = class(TForm)
    PersonsList: TListBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    FNameEdit: TEdit;
    LNameEdit: TEdit;
    DocEdit: TEdit;
    AddrEdit: TEdit;
    PhoneEdit: TEdit;
    AgeEdit: TSpinEdit;
    OpenDlg: TOpenDialog;
    SaveDlg: TSaveDialog;
    ToolBar1: TToolBar;
    AddBtn: TToolButton;
    EditBtn: TToolButton;
    RestBtn: TToolButton;
    DelBtn: TToolButton;
    ClearBtn: TToolButton;
    ToolButton6: TToolButton;
    OpenBtn: TToolButton;
    SaveBtn: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  THuman = class
    FirstName: string;
    LastName: string;
    Age: Integer;
    Document: string;
    Address: string;
    Phone: string;
    constructor Create(AName: string);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

constructor THuman.Create(AName: string);
begin
  inherited Create;
  FirstName := AName;
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
  PersonsList.Items.AddObject('Unknown', THuman.Create('Unknown'));
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
  with PersonsList, PersonsList.Items do
  begin
    if ItemIndex = -1
      then Exit;
    if not Assigned(Objects[ItemIndex])
      then Objects[ItemIndex] := THuman.Create(Items[ItemIndex]);
    with Objects[ItemIndex] as THuman do
    begin
      FNameEdit.Text := FirstName;
      LNameEdit.Text := LastName;
      AgeEdit.Value := Age;
      DocEdit.Text := Document;
      AddrEdit.Text := Address;
      PhoneEdit.Text := Phone;
    end;
  end;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
  if PersonsList.ItemIndex = -1 then
  begin
    ShowMessage('Не выбран элемент');
    Exit;
  end;
  with PersonsList do
    with Items.Objects[ItemIndex] as THuman do
    begin
      FirstName := FNameEdit.Text;
      LastName := LNameEdit.Text;
      Age := AgeEdit.Value;
      Document := DocEdit.Text;
      Address := AddrEdit.Text;
      Phone := PhoneEdit.Text;
      Items[ItemIndex] := FirstName + ' ' + Copy(LastName, 1, 1);
    end;
  FNameEdit.Clear;
  LNameEdit.Clear;
  AgeEdit.Clear;
  DocEdit.Clear;
  AddrEdit.Clear;
  PhoneEdit.Clear;
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);
begin
  with PersonsList do Items.Delete(ItemIndex);
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);
begin
  PersonsList.Items.Clear;
end;

procedure TMainForm.ToolButton7Click(Sender: TObject);
var F: TextFile;
  i: Integer;
begin
  try
    with OpenDlg, PersonsList.Items do
    begin
      if not Execute then Exit;
      LoadFromFile(FileName);
      AssignFile(F, Copy(FileName, 1, Length(FileName) - 4) + '.lso');
      Reset(F);
      i := 0;
      while not EOF(F) do
      begin
        Objects[i] := THuman.Create('');
        Readln(F, (Objects[i] as THuman).FirstName);
        Readln(F, (Objects[i] as THuman).LastName);
        Readln(F, (Objects[i] as THuman).Age);
        Readln(F, (Objects[i] as THuman).Document);
        Readln(F, (Objects[i] as THuman).Address);
        Readln(F, (Objects[i] as THuman).Phone);
        Inc(i);
      end;
      CloseFile(F);
    end;
  except
    on E: EFOpenError do ShowMessage('Ошибка открытия файла');
  end; end;

procedure TMainForm.ToolButton8Click(Sender: TObject);
var F: TextFile;
  i: Integer;
begin
  try
    with SaveDlg, PersonsList.Items do
    begin
      if not Execute then Exit;
      SaveToFile(FileName);
      AssignFile(F, Copy(FileName, 1, Length(FileName) - 4) + '.lso');
      Rewrite(F);
      for i := 0 to Count - 1 do
        if Objects[i] <> nil then
        begin
          Writeln(F, (Objects[i] as THuman).FirstName);
          Writeln(F, (Objects[i] as THuman).LastName);
          Writeln(F, (Objects[i] as THuman).Age);
          Writeln(F, (Objects[i] as THuman).Document);
          Writeln(F, (Objects[i] as THuman).Address);
          Writeln(F, (Objects[i] as THuman).Phone);
        end;
      CloseFile(F);
    end;
  except
    on E: EFOpenError do ShowMessage('Ошибка открытия файла');
  end;
end;

procedure TMainForm.ToolButton9Click(Sender: TObject);
begin
  Close;
end;

end.

Скачать весь проект

Статья Список объектов на основе класса TList 2 раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2013-05-27 17:49:22 :: re:Список объектов на основе класса TList 2

пользователь: Bahytbek.

Даны типы
type
TElem = string;
PLink2 = ^Link2; {ссылка на элемент списка}
Link2 = record {элемент списка}
Info: TElem; {Info - информационное поле элемента}
Pred, Sled: PLink2 {поля связи с предыдущим и }
end; {следующими элементам}
Описать тип "объект" - двусвязный циклический список
TList2 = object
Head, {указатель на первый элемент}
Curr: PLink2; {указатель на текущий элемент}
. . .
{методы объекта}
end;
Методы объекта должны реализовывать основные операции над списком, в том числе проверку на переполнение памяти (см. описание модуля SYSTEM.TPU).
Описать функцию, которая определяет, есть ли в списке List2: TList2; хотя бы один элемент, равный следующему за ним по кругу элементу.


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



:: Главная :: Списки ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 14:37:38/0.0011119842529297/0