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

[romantik1993]

Вот такое задание ....
Входные данные: массив символов
Действие: выполняет преобразование( транслитерация) в латиницу с заменой всех заглавных на строчные символы
Выход: преобразованная строка

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

Я понимаю что классы тут ни к чему, но такое задание в универе дали.

[min@y™]

Программирую в delphi на среднем уровне.

Это я на среднем уровне программирую на delphi.
Вопросы, подобные твоему, программисты среднего уровня в уме за полторы секунды решают, и в интернетах их никогда не задают.
Судя по содержанию вопроса, твой уровень стремится к нулю.

Не обижайся, это просто правда. Ничего личного.

З.Ы. Если через 8 часов вопрос будет ещё актуальным, свяжись со мной, я напишу тебе решение. А сейчас мне спать пора, утром на завод.

[Stilet]

выполняет преобразование( транслитерация) в латиницу с заменой всех заглавных на строчные символы

const en='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
 ru='Соответсвующая строка символов на русском';
var k,i:integer;
...
 for i:=1 to Length(s) do begin
  k:=pos(s[i],ru);
  if k<>0 then s[i]:=UpperCase(en[k]);
 end;
...

Идея надеюсь понятна?

Это я на среднем уровне программирую на delphi.

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

[phomm]

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

Программирую в delphi на среднем уровне

Раз так, напишите без классов грамотный код, в классы обернём махом.
А сами в это время ещё почитайте литературы по ООП, чтобы иметь представление, как код был изменён засчёт классов. Вот хороший учебный материал по теме.

min@y™, поставил бы плюс за фиолетовый текст, да и вообще надо Ваши посты кой-какие поплюсовать, но раз. не хочется ломать комбо 1600-160, и двас. система говорит, что мне ещё рано повторять Вам плюс )

[min@y™]

Аффтар, я проснулсо и пришёл на завод.

[romantik1993]

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

Аффтар, я проснулсо и пришёл на завод.

Раз проснулись то я прошу вас помочь в написании программы....ну наверное и правда со средним уровнем я погорячидся....под средним уровнем я имел ввиду что делфи чуток знаю и имел дело немного с ней

[min@y™]

Раз проснулись то я прошу вас помочь в написании программы...

В задании не хватает примера. Сделай.

ну наверное и правда со средним уровнем я погорячидся.

Ну да, ога. Получил вчера права, а сёдня перед девками понтуешься, что водила с 30-летним стажем. Вот на столько ты погорячился.

[romantik1993]

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

В задании не хватает примера. Сделай.

Ну да, ога. Получил вчера права, а сёдня перед девками понтуешься, что водила с 30-летним стажем. Вот на столько ты погорячился.

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

[Человек_Борща]

Элементарно, Ватсон! :

uses Classes;
type
  TTransliterator = class(TStringList)
     public
      function TranslitThis:string; 
      constructor Create;
      destructor Destroy; override;
  end;

Функция TranslitThis реализует то, что подкинул Stilet с данными которые содежатся в self.Text этого класса.

[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.