Комбинированный список в Delphi

[snejnbumer]

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

[min@y™]

Какая прелесть! А что это?

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   contnrs,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  TItemList=class
    Predmet,Prepod:String;
  end;

  { TForm1 }

  TForm1 = class(TForm)
    AddButton: TButton;
    EditButton: TButton;
    InsButton: TButton;
    SaveButton: TButton;
    LoadButton: TButton;
    ClearButton: TButton;
    DelButton: TButton;
    procedure AddButtonClick(Sender: TObject);
    procedure ClearButtonClick(Sender: TObject);
    procedure DelButtonClick(Sender: TObject);
    procedure EditButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure InsButtonClick(Sender: TObject);
    procedure LoadButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
  private
    { private declarations }
    uList:TObjectList;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  uList:=TObjectList.create(true);
end;

//для удаления строки
procedure TForm1.DelButtonClick(Sender: TObject);
var s:string;i:integer;
begin
 s:=InputBox('Дистрой!','Какого препода грохнем?','');
 if s='' then exit;
 for i:=0 to uList.Count-1 do begin
   with TItemList(uList[i]) do begin
     if Prepod=s then begin uList.Delete(i);break;end;
   end;
 end;
end;

//кнопку редактировать для редактирования выбранного пункта списка.
procedure TForm1.EditButtonClick(Sender: TObject);
var i:integer;
begin
 i:=StrToIntDef(InputBox('Ну че?','Семки есть?','А если найду?'),-1);
 if i=-1 then exit;
 with TItemList(uList[i]) do begin
   Prepod:=InputBox('Велком','Намэ?',Prepod);;
   Predmet:=InputBox('Велком','Дзюго?',Predmet);;
   ShowMessage('Дабаляно!');
 end;
end;

//добавления новой строки в конец списка
procedure TForm1.AddButtonClick(Sender: TObject);
begin
 with TItemList(uList[uList.Add(TItemList.Create)]) do begin
   Prepod:=InputBox('Велком','Намэ?','');;
   Predmet:=InputBox('Велком','Дзюго?','');;
   ShowMessage('Дабаляно!');
 end;
end;

//очистки списка
procedure TForm1.ClearButtonClick(Sender: TObject);
begin
  uList.Clear;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  uList.Destroy;
end;

//для вставки заданного текста в строку списка с заданным номером
procedure TForm1.InsButtonClick(Sender: TObject);
var i:integer;
begin
 i:=StrToIntDef(InputBox('Ну че?','Семки есть?','А если найду?'),-1);
 if i=-1 then exit;
 uList.Insert(i,TItemList.Create());
 with TItemList(uList[i]) do begin
   Prepod:=InputBox('Велком','Намэ?','');;
   Predmet:=InputBox('Велком','Дзюго?','');;
   ShowMessage('Дабаляно!');
 end;
end;

//загрузки списка из файла
procedure TForm1.LoadButtonClick(Sender: TObject);
var st:TStringList;i:integer;
begin
 st:=TStringList.Create;
 st.LoadFromFile('');
 for i:=0 to st.Count-1 do
   with TItemList(uList[uList.Add(TItemList.Create)]) do begin
     Prepod:=st.Names[i];
     Predmet:=st.ValueFromIndex[i];
   end;
 ShowMessage('Дабаляно!');
 st.Free;
end;

//сохранении списка в текстовой файл
procedure TForm1.SaveButtonClick(Sender: TObject);
var st:TStringList;i:integer;
begin
 st:=TStringList.Create;
 for i:=0 to uList.Count-1 do
   with TItemList(uList[i]) do begin
     st.Append(Prepod+'='+Predmet);
   end;
 st.SaveToFile('');
 st.Free;
 ShowMessage('Сахраняно!');
end;

end.

Вроде ниче не упустил...