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

[Deoxes]

Сделал програмку по новой теме (Варианты) но появились новые ошибки. Подскажите что за ошибки и как их исправить.

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

{$R *.dfm}

uses VarCmplx; // Эта ссылка обязательна!
procedure TfmExample.bbRunClick(Sender: TObject);
var
V1, V2: Variants
// Создаем два случайных комплексных числа:
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.

Ошибки
'.' expected but identifier 'V1' found
',' or ':' expected but '(' found
',' or ')' expected but '*' found
Identifier redeclared: 'Trunc'
Declaration expected but 'WITH' found
Undeclared identifier: 'Add'
Incompatible types: 'String' and 'Enumeration'
Operator not applicable to this operand type

[Аватар]

По старым темам (если они были вообще) посмотрите как процедуры оформляются, в частности begin ... end, и все вопросы отпадут

[Deoxes]

V1 := VarComplexCreate (Trunc (Random*1000)/100,Trunc (Random*1000)/100) ;

5 ошибок в етой строчке

[Luuzuk]

А все потому, что перед ней не хватает begin'a...

[Deoxes]

1 вопрос:

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

VarCmplx сюда добавить

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

и если да то что с коментарием делать, просто в где был там и оставить

2 вопрос:

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.

теперь на бегин ругаеться, но он же вроде так и должен стоять

[SaLoKiN]

procedure TfmExample.bbRunClick(Sender: TObject);

; ?!?!?!??!?!

[Luuzuk]

; ?!?!?!??!?!

вас может это шокировать, но в делфи точка с запятой после объявления названия процедуры/функции действительно нужна

теперь на бегин ругаеться, но он же вроде так и должен стоять

должен. только точку с запятой перед ним забыли

Сделал програмку ...

Не, не верю. Не умеете вы программки делать

[Deoxes]

; вроде точка с запятой и должна стоять после процедуры

Не, не верю. Не умеете вы программки делать

ну дак я по учебнику делаю, только там вечно куча ошибок.

V1, V2: Variants;
begin

expected but ';' found добавилась ошибка в строке вариантов

[Unique_Maks]

Сообщение от Deoxes

V1, V2: Variants;
begin

var написать не помешало бы еще

[Deoxes]

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

{$R *.dfm}

uses VarCmplx; // Эта ссылка обязательна!
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.

вот немного подправленный код и вар тут есть, ошибки те же что и в 1м сообщении