Создание классов в Delphi

[Stilet]

Мой пример я так понимаю не подошел?

[romantik1993]

Спасибо....щас домой приду попробую

[romantik1993]

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

Мой пример я так понимаю не подошел?

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

[romantik1993]

Сообщение от min@y™

да.
Вот, наскрёб на заборе:

type
  TTransliterator = class
  private
    FBufferOut: string;
    procedure SetBufferIn(const S: string);
  public
    property BufferOut read FBufferOut;  // read only
    property BufferIn write SetBufferIn; // write only
  end;

implementation

{ TTransliterator }

procedure TTransliterator.SetBufferIn(const S: string);
var
  Index: Integer;
  Temp, X: string;
begin
  Temp:= AnsiLowerCase(S);
  FBufferOut:= '';

  for Index:= 1 to Length(Temp) do
    begin
      case Temp[Index] of
        'а': X:= 'a';
        'б': X:= 'b';
        'в': X:= 'v';
        'г': X:= 'g';
        'д': X:= 'd';
        'е': X:= 'e';
        'ё': X:= 'yo';
        'ж': X:= 'j';
        'з': X:= 'z';
        'и': X:= 'i';
        'й': X:= 'j';
        'к': X:= 'k';
        'л': X:= 'l';
        'м': X:= 'm';
        'н': X:= 'n';
        'о': X:= 'o';
        'п': X:= 'p';
        'р': X:= 'r';
        'с': X:= 's';
        'т': X:= 't';
        'у': X:= 'u';
        'ф': X:= 'f';
        'х': X:= 'h';
        'ц': X:= 'ts';
        'ч': X:= 'ch';
        'ш': X:= 'sh';
        'щ': X:= 'sch';
        'ъ': X:= '`';
        'ы': X:= 'y';
        'ь': X:= '`';
        'э': X:= 'e';
        'ю': X:= 'yu';
        'я': X:= 'ya';
      else X:= string(Temp[Index]);
      end; // case

      FBufferOut:= FBufferOut + X;
    end;
end;

end.

чето я походу правда не догоняю

[Error] Unit1.pas(30): Property 'BufferOut' does not exist in base class
[Error] Unit1.pas(31): Property 'BufferIn' does not exist in base class

[min@y™]

чето я походу правда не догоняю

[Error] Unit1.pas(30): Property 'BufferOut' does not exist in base class
[Error] Unit1.pas(31): Property 'BufferIn' does not exist in base class

Errare humanum est!

type
  TTransliterator = class
  private
    FBufferOut: string;
    procedure SetBufferIn(const S: string);
  public
    property BufferOut: string read FBufferOut;  // read only
    property BufferIn: string write SetBufferIn; // write only
  end;

[romantik1993]

Сообщение от min@y™

Errare humanum est!

type
  TTransliterator = class
  private
    FBufferOut: string;
    procedure SetBufferIn(const S: string);
  public
    property BufferOut: string read FBufferOut;  // read only
    property BufferIn: string write SetBufferIn; // write only
  end;

Вот мой код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type
  TTransliterator = class
  private
    FBufferOut: string;
    procedure SetBufferIn(const S: string);
  public
    property BufferOut read FBufferOut;  // read only
    property BufferIn write SetBufferIn; // write only
  end;

implementation

{$R *.dfm}


procedure TTransliterator.SetBufferIn(const S: string);
var
  Index: Integer;
  Temp, X: string;
begin
  Temp:= AnsiLowerCase(S);
  FBufferOut:= '';

  for Index:= 1 to Length(Temp) do
    begin
      case Temp[Index] of
        'à': X:= 'a';
        'á': X:= 'b';
        'â': X:= 'v';
        'ã': X:= 'g';
        'ä': X:= 'd';
        'å': X:= 'e';
        '¸': X:= 'yo';
        'æ': X:= 'j';
        'ç': X:= 'z';
        'è': X:= 'i';
        'é': X:= 'j';
        'ê': X:= 'k';
        'ë': X:= 'l';
        'ì': X:= 'm';
        'í': X:= 'n';
        'î': X:= 'o';
        'ï': X:= 'p';
        'ð': X:= 'r';
        'ñ': X:= 's';
        'ò': X:= 't';
        'ó': X:= 'u';
        'ô': X:= 'f';
        'õ': X:= 'h';
        'ö': X:= 'ts';
        '÷': X:= 'ch';
        'ø': X:= 'sh';
        'ù': X:= 'sch';
        'ú': X:= '`';
        'û': X:= 'y';
        'ü': X:= '`';
        'ý': X:= 'e';
        'þ': X:= 'yu';
        'ÿ': X:= 'ya';
      else X:= string(Temp[Index]);
      end; // case

      FBufferOut:= FBufferOut + X;
    end;
end;
end.

а ошибки вылазиют

[min@y™]

а ошибки вылазиют

Я ж тебе показал, где ошибки. Даже курсивом выделил!

[romantik1993]

понял....а эту процедуру вот так вызывать можно?

procedure TForm1.Button1Click(Sender: TObject);
var f:string;
begin
f:=Edit1.Text;
TTransliterator.SetBufferIn(f);
end;

[min@y™]

не надо её вызывать. Надо, например, так:

procedure TForm1.Button1Click(Sender: TObject);
var 
  tl: TTransliterator;
begin
  tl:= TTransliterator.Create(); // в принципе, можно 1 раз создать, а не по кнопке
  try 
    tl.BufferIn:= Edit1.Text;
    Edit2.Text:= tl.BufferOut;
  finally
    tl.Free();
  end;
end;

[romantik1993]

Благодарю....все работает ....спасибо огромное