Ну пусть будет так:
Код:
function GetValues : TStringList;
var
x, v : Double;
begin
Result := TStringList.Create;
x := -1;
While x < 1 Do
Begin
v := sin(2*x);
Reslutl.Items.Add(Format('x=%.4f, sin(2x)=%.4f',[x,v]));
x := x + 0.25;
End;
end;
Результат можно показать через сообщеие
Код:
ShowMessage(GetValues.Items.Text);
или поместить в, например, Memo:
Код:
Memo1.Lines.Assign(GetValues);