Delphi - создать свой класс

[Електроник]

Помогите пожалуйста с созданием класса. Мне нужно просто обяснить как шаг за шагом написать код для создания своего класа, і где его писать в делфи 7
прошу простой пример навести с доступними коментариями, чтобы я мог создать потом свой класс даже сложнее, литератури много не читал по етому, а что читал ничего не понял (в делфи как бы разбираюсь но с класами дела не имел) мне бы поскорее ето виучить, надо прогу написать с класами и вообще хочу научиться

спасибо за помощь!

[Stilet]

А так:
http://seduvan.narod.ru/delphi_1.html
http://detc.usu.ru/Assets/aCOMP0091/lesson1/i5.html
Тоже не катит?

[Електроник]

катит, но только маловато примеров, только основы, мне бы пример такой что бы реальний код был и все расписано что для чего. Я вот не понимаю: нужно мне програму написать вроде не сложную, но с классами, для чего там они нужны если можно обойтись ?? допустим я создам свой клас, обявить его можно по примеру, а вот что дальше с ним делать? хотелось бы такое обьяснение на все случаи...а уже после етого во всех тонкстях смогу сам разобратся..!
извините за такие тупие вопроси, мне самому стыдно =) , но я просто не могу понять ..нужно чтобы кто то помог

нашол какие то примери на форуме..буду разбиратся понемножку ...
а если можно то хотел еще какие нибудь ссилки полезные
спасибо за помощь

[Stilet]

допустим я создам свой клас

А вот ты создай свой класс, покажи что ты уже понимаешь, а мы подправим. Кто же знает на какой ты стадии понимания классов.

а если можно то хотел еще какие нибудь ссилки полезные

Да любую книгу по ООП... Тейксеру и Пачеко уж если на то пошло...

[Електроник]

Спасибо за помощь, буду пробовать и на днях отпишусь...

[Alt]

Открываешь модуль Classes, вот тебе и очень много примеров.

[Електроник]

Вот написал немного кода

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TExpressionClass = class (TObject) //класс вычислений

private
{ Private declarations }
public
function F_Expression(str_in,str_out: String):String; //функция

end;

var
Form1: TForm1;

implementation

{$R *.dfm}
//здесь реализация функции, она должна брать строку с едит1 конвертировать в
//число и обратно в текст и присвоить едит2

function TExpressionClass.F_Expression(str_i n,str_out:String): String;
begin
str_out:=IntToStr(StrToInt(str_in)) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=F_Expression(Edit1.Text );
end;

end.


видает ошибку
[Error] Unit1.pas(44): Undeclared identifier: 'F_Expression'

не знаю что делать, подскажите что не так написано
СПАСИБО!

[Alt]

[Error] Unit1.pas(44): Undeclared identifier: 'F_Expression'

Даже не читая кода, можно сказать - место, в котором ты вызываешь функцию/обращаешься к переменной находится вне области видимости функции/переменной.

[Son Of Pain]

Тут все плохо.
Во-первых, TExpression - это класс. Чтобы вызвать его метод, сначала нужно создать его объект.

Во-вторых код метода не будет работать так, как ты планировал. Ты присваиваешь результат переменной StrOut, после выхода из метода это значение потеряется. Убери параметр StrOut, и присваивай значение переменной result.

[Електроник]

Сообщение от Son Of Pain

Тут все плохо.
Во-первых, TExpression - это класс. Чтобы вызвать его метод, сначала нужно создать его объект.

А можеш показать на примере как и где создать обьект в коде программы.


СПАСИБО УЖЕ НЕ НУЖНО, Я РАЗОБРАЛСЯ САМ))) наконец-то))