Варианты в делфи

[Unique_Maks]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    edinput: TEdit;
    IbOutput: TLabel;
    mmOutput: TMemo;
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmExample: TfmExample;

implementation

uses 
  VarCmplx; // Эта ссылка обязательна!

{$R *.dfm}

procedure TfmExample.bbRunClick(Sender: TObject);
var
  V1, V2: Variants;
begin
  // Создаем два случайных комплексных числа:
  V1 := VarComplexCreate (Trunc (Random*1000)/100,Trunc (Random*1000)/100) ;
  V2 := VarComplexCreate (Trunc (Random*1000)/100,Trunc (Random*1000)/100) ;
//with mmOutput.Lines do
//end;
//begin
// Пустая строка-разделитель
  Add ('') ;
  Add ('1-e число: '#9+V1) ;
  Add ('2-е число: '#9+V2) ;
  Add ('Сложение'#9+(V1+V2)) ;
  Add ('Вычитание'#9+(V1-V2)) ;
  Add ('Умножение'#9+(V1*V2)) ;
  Add ('Деление'#9#9+(V1/V2)) ;
end;

end.

[Аватар]

with mmOutput.Lines do
end;
begin

Что обозначает этот участок кода? По моему ТС вообще в код не смотрит - огульная копипаста и всех делов

Закоментировали, дальше что - ADD чей метод?

+ типа Variants нет в дельфи, есть Variant

[Unique_Maks]

я не в курсе чей метод, но

with mmOutput.Lines do
end;
begin

явно тут не к месту)
и если add описан как метод объекта типа TfmExample, то все норм...хотя его там нет. Опшибочка

[Аватар]

Он к месту, без правильного оформления все ниже следующие ADD в ошибки вывалятся

[Unique_Maks]

возможно как-то так тогда

procedure TfmExample.bbRunClick(Sender: TObject);
var
  V1, V2: Variant;
begin
  // Создаем два случайных комплексных числа:
  V1 := VarComplexCreate (Trunc (Random*1000)/100,Trunc (Random*1000)/100) ;
  V2 := VarComplexCreate (Trunc (Random*1000)/100,Trunc (Random*1000)/100) ;
  with mmOutput.Lines do
  begin
    // Пустая строка-разделитель
    Add ('') ;
    Add ('1-e число: '#9+V1) ;
    Add ('2-е число: '#9+V2) ;
    Add ('Сложение'#9+(V1+V2)) ;
    Add ('Вычитание'#9+(V1-V2)) ;
    Add ('Умножение'#9+(V1*V2)) ;
    Add ('Деление'#9#9+(V1/V2)) ;
  end;
end;

[Аватар]

Randomize добавить не помешало бы в начало. Ну и как, работает?

[Unique_Maks]

автор проверит, возможно так и должно быть

[Аватар]

Гы, а я думал, что с ТС диалог веду. У него думаю не заработает

[Deoxes]

uses VarCmplx; // Эта ссылка обязательна!

что с етой строкой делать, VarCmplx в верхний список uses внести а коментарий оставить или так и оставить её?
ругаеться на завершающию end. на точку если быть точнее и Declaration expected but end of file found

[Unique_Maks]

что-то там не завершено