Подскажите ПЛИЗ!
1.Есть дата, которая вводится пользователем в Edit в таком виде: 01.01.2001. Нужно привести ее к такому виду: "01" января 2001 года.
Как это сделать??
Нужна помошь
Страница: 1
Сообщений 1 страница 9 из 9
Поделиться12007-06-13 12:54:47
Поделиться22007-06-16 13:25:12
Помогите хочу воспользоваться методом floodfill пишу floodfill(5,6,label11.color,fsborder); и появляется ошибка [Error] Unit1.pas(263): Incompatible types: 'Cardinal' and 'TFillStyle'
Поделиться32008-06-23 02:10:31
> [Error] Unit1.pas(263): Incompatible types: 'Cardinal' and 'TFillStyle'
Ошибка в 263 строке.
Напишите Сanvas.floodfill(5,6,label1.color,fsborder);
Отредактировано serg (2008-06-27 18:04:35)
Поделиться42008-06-23 03:33:29
// пишем в строку Edit: 08.09.2008
// получаем: 08 сентября 2008 года
procedure TForm1.Button1Click(Sender: TObject);
var
dd,mm,yy,get_mm:string;
begin
dd :=Copy(Edit1.Text,1,2); // получаем день из Edit1
mm:=Copy(Edit1.Text,4,2); // получаем меняц из Edit1
yy :=Copy(Edit1.Text,7,4); // получaем год из Edit1
// определяем название месяца
case StrToInt(mm) of
01 : get_mm:='января';
02 : get_mm:='Февраля';
03 : get_mm:='марта';
04 : get_mm:='апреля';
05 : get_mm:='мая';
06 : get_mm:='июня';
07 : get_mm:='июля';
08 : get_mm:='августа';
09 : get_mm:='сентября';
10 : get_mm:='октября';
11 : get_mm:='ноября';
12 : get_mm:='декабря';
end;
// выводим сообщение
ShowMessage(dd+' '+get_mm+' '+yy+' года');
end;
Отредактировано serg (2008-06-24 08:09:58)
Поделиться52008-06-24 00:18:14
Сборник задач по программированию
Год издания: 2007
Страниц: 240
Размер: 3,7 Мб
http://www.depositfiles.com/ru/files/2124201
Поделиться62008-07-02 23:29:40
Всем прива ! тут сайтик интересый нашел там видео уроки по Delphi можно скачать. Проект молодой совсем ну думаю будующее у него есть. Так что все ГОу туда
http://www.delphiexpert.ru
Поделиться72009-01-12 15:14:24
Привет! Заходите на wwwnvv.ho.ua. Там могут бесплатно писать и вылажывать исходники на сайте. Если кого то заинтиресовало заходите.
Поделиться82009-03-05 14:59:22
Привет!!Хтото подскажет как написать програму на Delphi (деления многочленов).Вид любой главное чбы делило два многочлена и остаток))
Поделиться92009-06-18 15:22:21
[Error] Unit1.pas(263): Incompatible types: 'Cardinal' and 'TFillStyle' что это значит скажите пожалуйста, нужно очень
Было время когда доставка цветов была самым романтичным поступком в жизни…
Страница: 1