Что делать, если, когда ввожу в параметры нужные значения, высвечивается ошибка: ячейка должна содержать формулу. Но что за формулу нужно написать , исходя из данных, в ячейке???
type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadlnChar('Введите первый символ:'); var c2:=ReadlnChar('Введите второй символ:'); Print(c1); if c1>c2 then Print('>') else if c1=c2 then Print('=') else print('<'); Println(c2) end.
Примеры Введите первый символ: a Введите второй символ: b a < b
Введите первый символ: d Введите второй символ: d d = d
Введите первый символ: z Введите второй символ: m z > m
Введите первый символ: q Введите второй символ: Q q > Q
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Image1.Stretch:=true;
Image1.Left:=form1.Width div 2-image1.Width div 2;
Image1.top:=form1.Height div 2-image1.Height div 2;
end
end;
end.
// Внимание! Если программа не работает, обновите версию!
begin
var c1:=ReadlnChar('Введите первый символ:');
var c2:=ReadlnChar('Введите второй символ:');
Print(c1);
if c1>c2 then Print('>')
else
if c1=c2 then Print('=')
else print('<');
Println(c2)
end.
Примеры
Введите первый символ: a
Введите второй символ: b
a < b
Введите первый символ: d
Введите второй символ: d
d = d
Введите первый символ: z
Введите второй символ: m
z > m
Введите первый символ: q
Введите второй символ: Q
q > Q