Применение классов для представления списка строк

Применение классов для представления списка строк

 1) E:\Student\113\M&M\Project1.dpr

2)  TForm1 = class(TForm)

    Memo1: TMemo;

    Panel1: TPanel;

    SpeedButton1: TSpeedButton;

    Label1: TLabel;

    Edit1: TEdit;

    Timer1: TTimer;

    BitBtn1: TBitBtn;

    PopupMenu1: TPopupMenu;

 

3) var

  Form1: TForm1;

   MyList:TstringList;

 

implementation

 

{$R *.DFM}

 

function MyStr(MyList:TstringList):STRING;

var str:string;

i:integer;

begin

Str:=’ ‘;

for i:=0 to MyList.count-1 do

begin

Str:=Str+MyList[i]+’ ‘;

end;

Mystr:=Str;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var k:integer;

begin

try

//\\//\\//\\//\\

try

k:=strtoint(edit4.text);

except

showmessage(‘Неверный номер’);

panel1.setfocus;

edit4.setfocus;

end;

//\\//\\//\\//\\

if k<1 then begin

k:=1;

edit4.text:=’1′;

memo1.lines.add(‘Ошибка ввода N эл-та! Заменяем на 1.’);

end;

MyList.Add(edit1.text);

MyList.Add(edit2.text);

MyList.Add(edit3.text);

 

memo1.lines.add(‘***{Вводим 3 числа  }***’);

memo1.lines.add(Mystr(MyList));

MyList.Delete(k);

memo1.lines.add(‘***{Удаляем ‘+inttostr(k+1)+’ эл-т}***’);

memo1.lines.add(Mystr(MyList));

MyList.insert(k,’XXX’);

memo1.lines.add(‘***{Добавляем ‘+inttostr(k+1)+’ эл-т ="XXX"}***’);

memo1.lines.add(Mystr(MyList));

except   end; end;

 

procedure TForm1.Button3Click(Sender: TObject);

var myfile:textfile;

name1file:string;

begin

try

//

memo1.lines.add(‘      ‘);

memo1.lines.add(‘   Конец журнала  ‘);

//

name1file:=’Object.txt’;

Assignfile(myfile,name1file);

rewrite(myfile);

writeln(myfile,mylist.text);

CloseFile(myfile);

showmessage(‘Save OK!’);

try

memo1.lines.savetofile(‘asd.txt’);

except

showmessage(‘Error’);

end;

except   end;

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

var k:integer;

begin

try

//\\//\\//\\//\\

try

k:=strtoint(edit4.text);

except

showmessage(‘Неверный номер’);

edit4.setfocus;

end;

//\\//\\//\\//\\

begin

if k<1 then begin

edit4.text:=’1′;

k:=1;

memo1.lines.add(‘Ошибка ввода N эл-та! Заменяем на 1.’);

end;

MyList.insert(k-1,edit1.text);

//Showmessage(‘Добавляем ‘+inttostr(k-1)+’ строку – ‘+Mystr(MyList));

memo1.lines.add(‘***{Добавляем ‘+inttostr(k+1)+’ эл-т ="’+edit1.text+’"}***’);

memo1.lines.add(Mystr(MyList));

end;

except   end;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var k:integer;

begin

try

//\\//\\//\\//\\

try

k:=strtoint(edit4.text);

except

showmessage(‘Неверный номер’);

edit4.setfocus;

 

end;

//\\//\\//\\//\\

begin

if k<1 then begin

edit4.text:=’1′;

k:=1;

memo1.lines.add(‘Ошибка ввода N эл-та! Заменяем на 1.’);

end;

MyList.Delete(k-1);

//showmessage(‘Удаляем ‘+inttostr(k-1)+’ строку – ‘+Mystr(MyList));

memo1.lines.add(‘***{Удаляем ‘+inttostr(k+1)+’ эл-т }***’);

memo1.lines.add(Mystr(MyList));

end;

except  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

MyList:=TstringList.Create; end;

 

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

memo1.clear;

mylist.clear;

end;

 

procedure TForm1.SpeedButton4Click(Sender: TObject);

var myfile:textfile;

name1file:string;

begin

try

name1file:=’Object.txt’;

Assignfile(myfile,name1file);

rewrite(myfile);

writeln(myfile,mylist.text);

CloseFile(myfile);

showmessage(‘Save sucsess!’);

try

memo1.lines.savetofile(‘asd.txt’);

except

showmessage(‘Error’);

end;

except   end;

end;

 

procedure TForm1.SpeedButton6Click(Sender: TObject);

var k:integer;

begin

try

//\\//\\//\\//\\

try

k:=strtoint(edit4.text);

except

showmessage(‘Неверный номер’);

panel1.setfocus;

edit4.setfocus;

end;

//\\//\\//\\//\\

if k<1 then begin

k:=1;

edit4.text:=’1′;

memo1.lines.add(‘Ошибка ввода N эл-та! Заменяем на 1.’);

end;

MyList.Add(edit1.text);

MyList.Add(edit2.text);

MyList.Add(edit3.text);

 

memo1.lines.add(‘***{Вводим 3 числа  }***’);

memo1.lines.add(Mystr(MyList));

MyList.Delete(k);

memo1.lines.add(‘***{Удаляем ‘+inttostr(k+1)+’ эл-т}***’);

memo1.lines.add(Mystr(MyList));

MyList.insert(k,’XXX’);

memo1.lines.add(‘***{Добавляем ‘+inttostr(k+1)+’ эл-т ="XXX"}***’);

memo1.lines.add(Mystr(MyList));

except   end;

end;

 

procedure TForm1.SpeedButton5Click(Sender: TObject);

var myfile:textfile;

name1file:string;

begin

try

mylist.clear;

memo1.clear;

memo1.lines.loadfromfile(‘asd.txt’);

mylist.loadfromfile(‘Object.txt’);

showmessage(‘Open sucsess!’);

try

memo1.lines.loadfromfile(‘asd.txt’);

except

showmessage(‘Error’);

end;

except   end;end;

……

end.

 

4) try

…//ЯЗащищённый блок

except

..//Я Обработка ошибок 

end