Разработка приложений в системе Delphi. Шейкер Т.Д. - 80 стр.

var st:string;
    m,i:integer;
begin
    //Вывод данных в StaticText
 st:='123';
 StaticText1.Caption:='stroka';
 m:=strtoint(st);
 StaticText1.Caption:=StaticText1.Caption+inttostr(m);
    //Вывод данных в Memo
 for i:=0 to n-1 do Memo4.Lines.Add(inttostr(y[i]));
 for i:=0 to Memo2.Lines.Count-1 do
                            Memo4.Lines.Add(floattostr(r[i]));
 for i:=0 to Memo3.Lines.Count-1 do
                            Memo4.Lines.Add(floattostr(rval[i]));
 if OpenDialog1.Execute then
                    Memo4.Lines.LoadFromFile(OpenDialog1.FileName);
end;

   Пример 7. Использование компонент ListBox, ComboBox и StringGrid
   В обработчике OnCreate формы задаётся начальный выбор для списка
ListBox1 и заносятся сведения в StringGrid2. Комбинированный список
ComboBox1 используется для задания варианта исходных данных. В процессе
работы приложения функция выбирается в списке ListBox1. Вычисленные
значения аргумента и функции отображаются в StringGrid1, причём для
преобразования   числа   в   строку   используется   функция   FloatToStrF,
позволяющая задать нужный формат выводимого числа. Сформирован
защищённый блок try… except и предусмотрена обработка исключительной
ситуации, связанной с невозможностью преобразовать строку в число.
procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.ItemIndex:=0;
 With StringGrid2 do
   begin Cells[1,0]:='Вариант 1';
         Cells[2,0]:='Вариант 2';
         Cells[3,0]:='Вариант 3';
         Cells[0,1]:='Начальное значение';
         Cells[0,2]:='Конечное значение';
         Cells[0,3]:='Шаг';
         Cells[1,1]:='2'; Cells[1,2]:='3'; Cells[1,3]:='0,2';
         Cells[2,1]:='1'; Cells[2,2]:='1,8'; Cells[2,3]:='0,1';
         Cells[3,1]:='10'; Cells[3,2]:='14'; Cells[3,3] :='1';
   end;
end;



                                      80