Применение классов для представления списка строк
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