Автор Алина Кирюхина задал вопрос в разделе Другие языки и технологии
Помогите, пожалуйста,написать программу для delphi которая писала число прописью... и получил лучший ответ
Ответ от Grant[гуру]
ну ни так то просто по русски тут надо скланения учитывать если уж совсем круто брать есть вариант визуал бейсике умеючи переделать на Delphi будет не сложно, с сайта: wikasim. narod. ru(пробельчики убрать) раздел программы
Ответ от MMM_Corp[гуру]
запросто напишу, есть готовая наработка, за 3 бакса продам, работаем так: даю демку, платите, даю исходники оплата по вебмани
запросто напишу, есть готовая наработка, за 3 бакса продам, работаем так: даю демку, платите, даю исходники оплата по вебмани
Ответ от Mail[гуру]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label3: TLabel;
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label3: TLabel;
Ответ от Deusmaster[эксперт]
function TForm1.Propis(Value : int64) : string; var Rend: boolean; ValueTemp: int64; procedure Num(Value: byte); begin case Value of 1: if Rend = true then Result := Result + 'один ' else Result := Result + 'одна '; 2:
function TForm1.Propis(Value : int64) : string; var Rend: boolean; ValueTemp: int64; procedure Num(Value: byte); begin case Value of 1: if Rend = true then Result := Result + 'один ' else Result := Result + 'одна '; 2:
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите, пожалуйста,написать программу для delphi которая писала число прописью...