Нужно отредактировать код,привести его к рабочему виду. Работа с классами( Делфи ХЕ5)

[Stilet]

хотя бы хрустального попугая..

Который умеет кричать "Пиастры" на 17-ти языках мира

[indexx]

с использанием переменной - экземляра класса

Я бы использовал with

[нуб7]

ПО БРИЛЛИАНТОВОЙ СОВЕ КАЖДОМУ!!! Если все это сработает,я просто охренеть как буду счастлив! Спасибо вам,господа знатоки))))

[indexx]

Сработает. Ошибку то запомни. Нельзя работать с не инициализированным объектом, ибо нельзя обращаться к тому, что не существует.

[Stilet]

Да ты не переживай.

Если не сработает, приходи )

[abit]

если совы закончились, то мне хотя бы хрустального попугая..

оставьте мне хоть лапку от попугая... я вот что умею:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const s:string='12+456';
type TMyClass = class
    constructor Create(a:string);
private
    Number1,Number2:integer;
    Operation:char;
public
    function Rastshet():integer;
end;

constructor TMyClass.Create(a:string);
    var i,n:integer; buf:string='';
begin
    n:=length(a);
    for i:=1 to n do if ord(a[i]) in [48..57] then buf:=buf+a[i] else break;
    Number1:=strtoint(buf);
    delete(a,1,length(buf));
    Operation:=Chr(Ord(a[1]));
    delete(a,1,1);
    Number2:=StrToInt(a);
end;
function TMyClass.Rastshet():integer;
begin
    case Operation of
    '+':Rastshet:=Number1+Number2;
    '-':Rastshet:=Number1-Number2;
end;
end;
    var MyObj:TMyClass;
begin
    writeln('Stroka s: ',s);
    MyObj:=TMyClass.Create(s);
    writeln('Rezultat: ',s,' = ',MyObj.Rastshet);
    Readln;
end.

[Stilet]

Освободишь объект - получишь лапку.

[abit]

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

Сработает. Ошибку то запомни. Нельзя работать с не инициализированным объектом, ибо нельзя обращаться к тому, что не существует.

на самом деле вы не правы, не всегда нужно создавать объект, чтобы обращаться к его методам, посмотрите например как работает TObject.Free

вот более конкретный пример:

type
  TClassFoo = class
  public
    procedure Foo;
  end;

procedure TClassFoo.Foo;
begin
  WriteLn('Hello class world!!!');
end;

begin
  TClassFoo(nil).Foo;
  Readln;
end.

to Stilet
это только за вторую лапку

[Stilet]

это только за вторую лапку

За вторую лапку ты дашь точный ответ "Почему и в каких случаях объект создавать обязательно а в каких это упущение может и не привести к крэшу программы".

[abit]

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

За вторую лапку ты дашь точный ответ "Почему и в каких случаях объект создавать обязательно а в каких это упущение может и не привести к крэшу программы".

Да на самом деле размышления тут просты, если у нас есть некий класс с полями и методами, то что из себя представляет объект этого класса? Это просто указатель на область памяти, где лежат данные класса... т.е. даже добавлю - нестатичные данные класса, а вот методы класса в отличии от полей лежат отдельно и в одном экземпляре, поэтому вопрос только как к ним обратиться MyObj:=TMyClass.Create(s) в моём коде - типичный пример... (конечно там по хорошему в конструкторе нужен inherited, но сейчас это рудимент), так я заслужил вторую лапку или остались вопросы?