Вопрос № 152148: Здравствуйте! Помогите пожалуйста разобратся. Понатыкивал на форму компонентов: type TLab2 = class(TForm) lblText1: TLabel; lblText2: TLabel; lblText3: TLabel; lblCapt: TLabel; pnlTSpeedButton: TPanel;<b...
Вопрос № 152152: Уважаемые эксперты, у меня такой вопрос: Ниже написана процедура копирования методом Pascal и тип TCallBack, подскажите пожалуйста как мне правильно вызвать процедуру FastFileCopy.
Я уже все перепробовал компилируется только вот так Fast...Вопрос № 152184: Добрый день, господа! Я жестоко нуждаюсь в решении задачи, реализованном в Delphi. Вот условие: С клавиатуры вводится натуральное число (n меньше либо равно 1000). Составить проект, который напечатает это число русскими словами (тринадцать, ст...
Вопрос № 152.148
Здравствуйте! Помогите пожалуйста разобратся. Понатыкивал на форму компонентов:
type TLab2 = class(TForm) lblText1: TLabel; lblText2: TLabel; lblText3: TLabel; lblCapt: TLabel; pnlTSpeedButton: TPanel; pnlTImage: TPanel; pnlTMemo: TPanel; private { Private declarations } public { Public declarations } end;
подскажите что здесь такое lblText1: TLabel - поле класса и его тип?
Отправлен: 28.11.2008, 12:17
Вопрос задал: compile (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Denisss
Здравствуйте, compile!
Поле класса в объектно-ориентированном программировании — переменная, связанная с классом или объектом. Все данные объекта хранятся в его полях. Доступ к полям осуществляется по их имени. Обычно тип данных каждого поля задаётся в описании класса, членом которого является поле. [Wikipedia]
Исходя из приведенного определения можно четко сказать, что здесь lblText1 - объект (переменная)
типа Tlabel, являющийся полем класса TLab2.
Успехов! --------- Все должно быть сделано настолько просто, насколько это возможно. Но не проще. (с) А.Эйнштейн
Ответ отправил: Denisss (статус: Профессор) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 28.11.2008, 20:58
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 237011 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: спасибо
Вопрос № 152.152
Уважаемые эксперты, у меня такой вопрос:
Ниже написана процедура копирования методом Pascal и тип TCallBack, подскажите пожалуйста как мне правильно вызвать процедуру FastFileCopy. Я уже все перепробовал компилируется только вот так FastFileCopy('C:file.exe', 'D:file.exe', TCallBack(progressbar1.position); а в результате выполнения этой процедуры выдается ошибка, пожалуйста помогите.
Type TCallBack=procedure (Position,Size:Longint); {Для индикации процесса копирования}
procedure
FastFileCopy(Const InfileName, OutFileName: String; CallBack: TCallBack); Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат } Type PBuffer = ^TBuffer; TBuffer = array [1..BufSize] of Byte; var Size : integer; Buffer : PBuffer; infile, outfile : File; SizeDone,SizeFile: Longint; begin if (InFileName <> OutFileName) then begin buffer := Nil; AssignFile(infile, InFileNa
me); System.Reset(infile, 1); try SizeFile := FileSize(infile); AssignFile(outfile, OutFileName); System.Rewrite(outfile, 1); try SizeDone := 0; New(Buffer); repeat BlockRead(infile, Buffer^, BufSize, Size); Inc(SizeDone, Size); CallBack(SizeDone, SizeFile); BlockWrite(outfile,Buffer^, Size) until Size < BufSize; FileSetDate(TFileRec(outfile).Handle, FileGetDate(TFileRec(infile).Handle));
finally if Buffer <> Nil then Dispose(Buffer); System.close(outfile) end; finally System.close(infile); end; end else Raise EInOutError.Create('File cannot be copied into itself'); end;
а использование типа этого: procedure TForm1.Button1Click(Sender: TObject); begin FastFileCopy('c:daten.txt', 'c: estdaten2.txt', @FastFileCopyCallBack); end;
Ответ отправил: Шичко Игорь (статус: Практикант)
Ответ отправлен: 28.11.2008, 13:25
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236978 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5
Вопрос № 152.184
Добрый день, господа! Я жестоко нуждаюсь в решении задачи, реализованном в Delphi. Вот условие: С клавиатуры вводится натуральное число (n меньше либо равно 1000). Составить проект, который напечатает это число русскими словами (тринадцать, сто пять, двести сорок один, тысяча и т.д.) Если кому удасться решить сей монументальный труд, не поскуплюсь на благодарности! Спасибо за внимание!
Отвечает: Drbear
Здравствуйте, Тимофеев Дмитрий Николаевич! Цитата: "По адресу http://drshtopor.ucoz.ru/Files/chisla.rar лежит архив с программкой, которая пишет прописью числа от 1 до 999. При желании можно модифицировать её для бо'льших чисел. Для этого число надо разделить на триады. Младшая - единиц, дальше тысяч и т.д. Определять падеж слова "тысяча" нужно по младшему разряду триады. " Автор - участник портала Dr. Штопор В приложении код проекта.
Приложение:
Ответ отправил: Drbear (статус: Студент)
Ответ отправлен: 28.11.2008, 18:12
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236998 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4
Отвечает: Кэр Лаэда
Здравствуйте, Тимофеев Дмитрий Николаевич!
в прикрепленном файле, пример работы программы для перевода чисел (денег) в строковое отображение.
пример
Код:
m:=123.45; str:=MoneyToString(m,true,false); str = 'сто двадцать три рубля 43 копейки'
m:=123.45; str:=MoneyToString(m,false,false); str = 'сто двадцать три рубля сорок три копейки'
m:=123.45; str:=MoneyToString(m,true,true); str = 'сто двадцать три доллара 43 цента США'
m:=123.45; str:=MoneyToString(m,false,true); str = 'сто двадцать три доллара сорок три цента США'
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Я знаю что ничего не знаю, но я знаю больше, чем тот кто думает что знает все
Ответ отправил: Кэр Лаэда (статус: Практикант)
Ответ отправлен: 28.11.2008, 18:19
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 237000 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Тимофеев Дмитрий Николаевич!
В приложении функция, которая преобразовывает число по заданным Вами условиям
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.