Массив строк в Lazarus

Автор:

Рассмотрим много строчные компоненты Memo, ListBox, ComboBox.
Первый из них много строчный текст (с массивом Lines), следующие списки (с массивом Items).

Свойство или процедура компонента применение типы данных
 Memo1.Lines[n]  обращение к n-ой строке  результат String
n — integer
 Свойство  Memo1.Lines.Count  Количество строк  integer
 Процедура  Memo1.Lines.Clear  Очистка содержимого
 Процедура   Memo1.Lines.Add(S)  Добавление строки S  S — String
Процедура Memo1.Lines.Delete(n) Удаление строки n n — integer
Процедура Memo1.Lines.Insert(n,S)  Добавление строки S в позицию n n — integer
S — String
Процедура Memo1.Lines.LoadFromFile(P) Загрузка текста из фала (P — путь к файлу) P — String
Процедура Memo1.Lines.SaveToFile(P) Сохранение в файл (P — путь к файлу) P — String
Процедура Memo1.Lines.Delete(n) Удаление строки n n — integer
Процедура Memo1.Lines.Delete(n) Удаление строки n n — integer

Добавляем 10 кнопок, 4 надписи, Memo, ListBox, ComboBox, OpenDialog и SaveDialog со вкладки Dialog;
2016-10-19_16h27_41

Добавим переменные

var
Form1: TForm1;
i,j,max,min,sum,kol,num:integer;
per:string;

Процедуры имеют следующий код

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
for i:=1 to 100 do Memo1.lines.Add(inttostr(random(89999)+10000));
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
max:=strtoint(Memo1.Lines[0]);
for i:=1 to memo1.lines.Count-1 do
if maxstrtoint(Memo1.Lines[i]) then
min:=strtoint(Memo1.Lines[i]);
Label2.Caption:=inttostr(min);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
sum:=0; //Pr:=1;
for i:=0 to memo1.lines.Count-1 do
sum:=sum+strtoint(Memo1.Lines[i]);//Pr:=Pr*…
Label3.Caption:=inttostr(sum);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
kol:=0;
for i:=0 to memo1.lines.Count-1 do
if strtoint(Memo1.Lines[i])>50000 then
inc(kol);// kol:=kol+1;
Label4.Caption:=inttostr(kol);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
for j:=0 to memo1.lines.Count-1 do
begin
num:=0;
max:=strtoint(Memo1.Lines[0]);
for i:=0 to memo1.lines.Count-1-j do
if maxstrtoint(Memo1.Lines[i]) then
begin
Memo1.Lines.Insert(i,Memo1.Lines[j]);
Memo1.Lines.Delete(j+1);
break;
end; end; end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

Показать
Свернуть
 
Презентация+исходники
Индивидуальное задание:
1 для списка использовать компонент «.$PerK[mt_rand(1,2)].»
2 для кнопки количество по условию изменить условие в подсчете цифр, где «.$PerS[mt_rand(1,4)].» равны «.mt_rand(1,9);
?>

Всего комментариев: 0

Оставить комментарий