Разделы сайта:

Delphi.int.ru

Новости сайта
Регистрация »
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
Рассылки сайта
Дружеств. сайты

IRC-канал сайта:

Сервер: irc.tic-tac.ru
(либо irc.dalnet.ru)
Порт: 6667
Канал: #delphiintru

Ждём Вас на нашем канале!

Разделы рассылки:

» Авторское слово
» Обучение Delphi
» Delphi.int.ru Expert
» Статья по Delphi
» Файловый архив
» Юмор

Delphi.int.ru Expert - решите свою проблему, а также помогайте другим, став экспертом!

Количество читателей рассылки (29.06.2007, 12:00):
5482+1242+379= 7103 (+29)

Связь по e-mail:

admin@delphi.int.ru
expert@delphi.int.ru
info@delphi.int.ru

Где найти события?

В одном из первых уроков было упомянуто, что каждый объект имеет свойства и события и всё это доступно через Object Inspector. Список всех событий, которые поддерживает объект, находится на вкладке Events Инспектора Объектов. Формат данных аналогичен закладке со свойствами: слева указывается название события, а справа - обработчик, который присвоен событию. Обратите внимание, что всем событиям обычно даются названия, начинающиеся со слова "On" (англ. - "на"). Это хороший тон и довольно устоявшаяся традиция. Такие названия позволяют быстро отличить события от свойств. По аналогии со свойствами, событиям дают вполне логичные имена. Увидев незнакомое событие, в 95% случаев только по названию можно догадаться, когда событие происходит. Если же событие не совсем понятно, либо хочется больше узнать о нём, можно воспользоваться встроенной справочной системой Delphi. Для этого нужно установить курсор на строку с интересующим событием и про сто нажать F1 - справочная система откроется на странице с информацией о выбранном событии (если, конечно, оно описано в справке). Для всех стандартных компонент в справочной системе информации предостаточно. Если используется какой-либо сторонний компонент, то описание следует искать в документации, которая идёт вместо с самим компонентом. Некоторые компоненты (в основном - крупные пакеты из большого числа компонент) самостоятельно интегрируют свою документацию в справочную систему Delphi при установке.

Автоматическое создание обработчиков событий

Обработчик события - это набор команд, которые выполняются при вызове события. Создавать обработчики можно двумя способами: прямо в среде Delphi - автоматически, и программным путём, т.е. во время выполнения программы. Создать обработчик очень просто: достаточно дважды щёлкнуть по полю рядом с названием события в Инспекторе Объектов и откроется редактор кода с заготовкой обработчика. Остаётся лишь написать требуемый код между begin и end (курсор уже будет стоять в том месте) и обработчик готов. Как видите, всё довольно просто и быстро. Однако в предыдущих уроках Вы видели, что обработчик создавался и просто при двойном щелчке по объекту на форме... Да, действительно, в этом случае тоже создаётся обработчик. Но этот способ ничем не отличается от только что описанного, просто для каждого объекта задано событие по умолчанию, для которого создаётся обработчик при двойном щелчке. Как правило, это самые используемые события. Например, для кнопки это конечно же б удет щелчок по ней. Для нестандартных компонент, если событие по умолчанию не обозначено, берётся первое попавшееся из всех, а если событие всего одно, то выбор тем более очевиден.
После того, как обработчик создан, на вкладке Events рядом с названием события появится название обработчика для него. Это название также можно вписать и вручную или выбрать из списка, в котором содержатся названия всех обработчиков. Имена обработчикам даются также не случайно: берётся имя объекта и к нему дописывается название события. Например, если есть кнопка Button1 и её событие OnClick, то обработчик получит название Button1Click. Опять-таки, по имени обработчика можно догадаться о событии, к которому он относится.

Событие может иметь только один обработчик! Тем не менее, если требуется задать несколько обработчиков, можно сделать следующим образом: единственный указанный обработчик просто программно запускает другие обработчики. Такой приём часто используется.
Однако, обратного запрета не существует: один обработчик может быть привязан к разным событиям объекта и даже к разным объектам. Для этого нужно в строке интересующего события у объекта выбрать имя обработчика из списка.

Обработчик с точки зрения программного кода

Теперь посмотрим, что из себя представляет обработчик в программном коде. А представляет он из себя процедуру, т.е. набор команд и является мини-программой. Обработчик содержит раздел реализации - он расположен между begin и end (на рисунке выделен рамкой цвета    ). В этом блоке, как Вы уже знаете, следует писать код, который и будет выполнен. Самая верхняя строка обработчика - это его заголовок (выделен цветом    ). Элементы заголовка: - Ключевое слово procedure (процедура); - Имя объекта, которому принадлежит данная процедура (в данном случае она принадлежит форме - поэтому TForm1); - Имя обработчика (цвет    ); - Переданные параметры (цвет    ).

Между именем объектам (TForm1) и именем обработчика (Button1Click) находится точка - это символ указания на то, что Button1Click принадлежит TForm1. При работе с любыми структурами точка указывает на принадлежность элемента этой структуре. Сейчас это не играет большой роли - просто небольшое отступление. К примеру, в языке C++ таким разделителем служит комбинация "минус и знак больше": ->

Раздел описаний здесь тоже присутствует, просто он является пустым. Как и положено, расположен он между заголовком обработчика и разделом реализации, т.е. между первой и второй строкой. При необходимости объявления переменных или констант этот раздел описывается обычным образом - добавление ключевого слово var или const и описанием переменных или констант.

Текст вопроса:

Доброго вам здравия.
Вопрос такой:
Как мне получить разницу между полем даты таблицы БД и нынешней датой!
Принци такой необходимо чтобы оно высчитывало года (типа стаж работы). Когда пришел на работу - минус нынешняя и получение остатка.
Заранее благодарен!

Автор вопроса: BLOOD_OMEN (статус: Посетитель)
Дата и время отправки вопроса: 15.01.2007, 20:08
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: Высокий уровень), 15.01.2007, 20:31]:

Здравствуйте, BLOOD_OMEN!
Это дело можно решить двумя способами. Первый - вычисляемые поля. Можно в Table добавить новое поле и написать формулу, по которой его считать.
А можна, так как я делал в своё время. Через SQL запрос. Многие БД имеют функцию получения текущей даты/время и работы с ней. И их имена типа DATE, NOW (читаем доки). Теперь выбираем записи к примеру таким запросом
Select X,Y, (NOW-DT) from table
где X,Y - какие-то поля. DT - поле с датой. NOW - функция взятия текущей даты.
Такой способ наиболее правильный. Не думайте, что на клиенте вы быстрей сосчитаете! Сервера БД специально оптимизируют под это.

Оценка за ответ: 5.

Текст вопроса:

Уважаемые эксперты. Мне необходимо вычислить строку вида: "5+3*sin(3*x-8*cos(y)/2)*5^2+8*cos(5)", соответсвенно подставив туда x и y.
Для вычисления я создал пару функций, первая создает дерево вычислений (см. в прилажении), второя подставляем необходимое значение аргумента. А вот как вычисть строку по готовому дереву не могу понять (запутался с указателями). В общем должен работать алгоритм: спуститься по всем ветвям вниз и начать вычисления к веришине, но как это реализовать?

Приложение:

type PFormula = ^TFormula; TFormula = packed record Oper: string; ArgFormulaL: PFormula; ArgFormulaR: PFormula; ArgL: string; ArgR: string; end; //============================// function IsSimple(st: string): boolean; var i: word; begin result := true; for i := 1 to Length(st) do if not (st[i] in ['0'..'9', ',', 'A'..'Z', 'a'..'z']) then begin result := false; exit; end; end; function IsFunc(st: string; var sFunc, sParam: string; var Oper: word): boolean; var i, k, L, R: word; begin result := true; k := 0; R := 0; L := Pos('(', st); for i := L to Length(st) do begin if st[i] = '(' then inc(k); if st[i] = ')' then dec(k); if k = 0 then begin R := i; break; end; end; if R = Length(st) then Oper := 1 else Oper := R+1; sFunc := Copy(st, 1, L-1); sParam := Copy(st, L+1, R-L-1); for i := 1 to Length(sFunc) do if not(sFunc[i] in ['A'..'Z', 'a'..'z']) then begin result := false; exit; end; end; function GetOper(st: string): word; var i, k: word; begin result := 1; k := 0; for i := 1 to Length(st) do begin if st[i] = '(' then inc(k); if st[i] = ')' then dec(k); if k = 0 then begin result := i+1; exit; end; end; end; procedure Info(Formula: PFormula); begin frMain.Memo1.Lines.Add('TFormula: Pointer = ' + inttostr(integer(Formula))); frMain.Memo1.Lines.Add('TFormula: Oper = ' + Formula.Oper); frMain.Memo1.Lines.Add('TFormula: ArgL = ' + Formula.ArgL); frMain.Memo1.Lines.Add('TFormula: ArgR = ' + Formula.ArgR); frMain.Memo1.Lines.Add('TFormula: ArgFormulaL: Pointer = ' + inttostr(integer(Formula.ArgFormulaL))); frMain.Memo1.Lines.Add('TFormula: ArgFormulaR: Pointer = ' + inttostr(integer(Formula.ArgFormulaR))); frMain.Memo1.Lines.Add(''); Application.ProcessMessages; end; procedure Polski(const st: string; var Formula: TFormula); var i, Oper: word; sFunc, sParam: string; begin i := 1; repeat //Проверка, если операнд, то идем дальше if st[i] in ['0'..'9', ','] then inc(i) else //если встречаем скобку, обрабатываем if st[i] = '(' then begin i := GetOper(st); Formula.Oper := st[i]; Formula.ArgL := Copy(st, 2, i-3); Formula.ArgR := Copy(st, i+1, Length(st)-i); if not IsSimple(Formula.ArgL) then begin New(Formula.ArgFormulaL); Polski(Formula.ArgL, Formula.ArgFormulaL^); end else Formula.ArgFormulaL := nil; if not IsSimple(Formula.ArgR) then begin New(Formula.ArgFormulaR); Polski(Formula.ArgR, Formula.ArgFormulaR^); end else Formula.ArgFormulaR := nil; Info(@Formula); Exit; end else //Если встречаем операцию if st[i] in ['+', '-', '*', '/', '^', '%'] then begin Formula.Oper := st[i]; Formula.ArgL := Copy(st, 1, i-1); Formula.ArgR := Copy(st, i+1, Length(st)-i); if not IsSimple(Formula.ArgL) then begin New(Formula.ArgFormulaL); Polski(Formula.ArgL, Formula.ArgFormulaL^); end else Formula.ArgFormulaL := nil; if not IsSimple(Formula.ArgR) then begin New(Formula.ArgFormulaR); Polski(Formula.ArgR, Formula.ArgFormulaR^); end else Formula.ArgFormulaR := nil; Info(@Formula); Exit; end else //Если вдруг попадется функция?. ее тоже необходимо обработать if IsFunc(st, sFunc, sParam, Oper) then begin //Фукция одна, можно ее раскрывать if Oper = 1 then begin Formula.Oper := sFunc; Formula.ArgL := sParam; if not IsSimple(Formula.ArgL) then begin New(Formula.ArgFormulaL); Polski(Formula.ArgL, Formula.ArgFormulaL^); end else Formula.ArgFormulaL := nil; Formula.ArgFormulaR := nil; end //Сначала надо просчитать операторы за функцией else begin i := Oper; Formula.Oper := st[i]; Formula.ArgL := Copy(st, 1, i-1); Formula.ArgR := Copy(st, i+1, Length(st)-i); if not IsSimple(Formula.ArgL) then begin New(Formula.ArgFormulaL); Polski(Formula.ArgL, Formula.ArgFormulaL^); end else Formula.ArgFormulaL := nil; if not IsSimple(Formula.ArgR) then begin New(Formula.ArgFormulaR); Polski(Formula.ArgR, Formula.ArgFormulaR^); end else Formula.ArgFormulaR := nil; end; Info(@Formula); Exit; end else inc(i); until i > Length(st); end; procedure SetFormula(Formula: TFormula; Arg, Num: string); begin if @Formula <> nil then begin if Formula.ArgL = Arg then Formula.ArgL := Num; if Formula.ArgFormulaL <> nil then SetFormula(Formula.ArgFormulaL^, Arg, Num); if Formula.ArgR = Arg then Formula.ArgR := Num; if Formula.ArgFormulaR <> nil then SetFormula(Formula.ArgFormulaR^, Arg, Num); Info(@Formula); end; end; function Calculate(ArgL, ArgR: extended; Oper: string): extended; begin result := 0; if Oper = '+' then result := ArgL + ArgR; if Oper = '-' then result := ArgL - ArgR; if Oper = '*' then result := ArgL * ArgR; if Oper = '/' then result := ArgL / ArgR; if Oper = '%' then result := round(ArgL / ArgR); if Oper = '^' then result := Power(ArgL, ArgR); if Oper = 'sin' then result := sin(ArgL); if Oper = 'cos' then result := cos(ArgL); if Oper = 'tan' then result := tan(ArgL); if Oper = 'cotan' then result := cotan(ArgL); if Oper = 'arccos' then result := arccos(ArgL); if Oper = 'arccot' then result := arccot(ArgL); if Oper = 'arcsin' then result := arcsin(ArgL); if Oper = 'sec' then result := sec(ArgL); if Oper = 'lg' then result := log10(ArgL); if Oper = 'log' then result := logN(ArgL, ArgR); end; function CalcFormula(Formula: TFormula): extended; begin //if @Formula <> nil then begin //????????????????? end; end; //================================// procedure TfrMain.Button1Click(Sender: TObject); var st: string; Formula: TFormula; begin Formula.ArgFormulaL := nil; Formula.ArgFormulaR := nil; st := edit1.Text; Polski(st, Formula); memo1.Lines.Add('-----------------'); SetFormula(Formula, 'x', '7'); edit2.text := floattostr(CalcFormula(Formula)); //????? end;

Автор вопроса: SMaks (статус: Посетитель)
Дата и время отправки вопроса: 15.01.2007, 22:00
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 16.01.2007, 08:49]:

Здравствуйте, SMaks!

Вычислять выражение нужно рекурсивно, так же как Вы заменяете x и y на числа в SetFormula().

Кроме того, было еще две ошибки:
1. Calculate() по умолчанию должна возвращать левый параметр, а не ноль, чтобы правильно обрабатывались скобки.
2. SetFormula(), параметр Formala должен быть объявлен как var-параметр, иначе Formala не изменится.

Все это в виде готового проекта: http://expert.delphi.int.ru/download_37.

Приложение:

function CalcFormula(Formula: TFormula): extended; var OprL, OprR : Extended; begin if @Formula <> nil then begin // Если левый парамтер - значение, поместим его в переменную, // уже в виде Extended if (Formula.ArgL <> '') and IsSimple(Formula.ArgL) then OprL := StrToFloat(Formula.ArgL) else OprL := 0; // То же самое с правым парамтером if (Formula.ArgR <> '') and IsSimple(Formula.ArgR) then OprR := StrToFloat(Formula.ArgR) else OprR := 0; // Организация рекурсивного вычисления // Вычисление левого подвыражения if Formula.ArgFormulaL <> nil then OprL := CalcFormula(Formula.ArgFormulaL^); // Вычисление правого подвыражения if Formula.ArgFormulaR <> nil then OprR := CalcFormula(Formula.ArgFormulaR^); // Вычисление элементарной операции Result := Calculate(OprL, OprR, Formula.Oper); end; end;

Оценка за ответ: 5.
Комментарий: То что нужно, большое тебе спасибо!

2. [Отвечает: min@y™ (статус: Средний уровень), 16.01.2007, 10:24]:

Посмотри, как этот алгоритм реализован в RxLib (модуль Parsing.pas, класс TRxMathParser).
Замена х и у на значения - это совсем просто.

Оценка за ответ: 2.
Комментарий: Я спрашивал по конкретной задачи!

Текст вопроса:

Господа Эксперты!
Как импортировать учётные записи Outlook Express?
Иными словами я хочу сказать как получить учётные записи Outlook Express (именно Outlook Express). Мне нужны следующие данные:
- сервера исход. сообщений
- сервер вход. сообщений
- Адрес Электронной почты
- Пароль

Автор вопроса: Len.A.R. (статус: Посетитель)
Дата и время отправки вопроса: 15.01.2007, 22:01
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Здравствуйте, уважаемые! Решил поработать со списками. Подскажите как правильно освободить памать по завершении работы.

Автор вопроса: hdrus (статус: Посетитель)
Дата и время отправки вопроса: 16.01.2007, 06:39
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 5
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 16.01.2007, 14:46]:

Здравствуйте, hdrus!

Списки TList, TStringList и т.д. поддерживают методы:

.Clear - очистка данных;
.Destroy - виртуальный деструктор от TObject, перегруженный для каждого конкретного класса - освобождает память, занятую объектом;
.Free - метод от TObject, вызывающий Destroy.

Обычно рекомендуют использовать Free, поскольку в нем есть проверка на nil, т.е. если объект не создан Free просто ничего не сделает, тогда как Destroy вызовет исключение.

2. [Отвечает: Вадим К (статус: Высокий уровень), 16.01.2007, 15:05]:

Какие именно списки вы использовали? Если TList, то незабывайте, что он не чистит память за вашими объектами. Тоесть вы должны сделать сами. Предыдущий эксперт об этом умолчал. Наиболее правильным считается такое удаление
Пусть TMyClass - это наш класс, экземпляры которого хранятся в списке. Тогда, если добавление выглядит так
m:TMyClass;
...
m:=TMyClass.Create;
List.Add(m);

то в конце зачищаем память так:
for i:=list.count-1 downto 0 do
begin
TMyClass(list).free;
list.delete(i);
end;
Почему сзаду наперёд? Количество элементов уменьшается, и когда вы перейдёте за середину списка, то будут удалятся уже не те элементы и будет большой Access Violation

Если же вы создали свои структуры и их организовали в виде связаных списков, то тут нужно смотреть, что именно вы создали. В одних случаях лучше сзаду начинать (с хвоста)

Текст вопроса:

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

Автор вопроса: Сагынов Байсак Найсабекович (статус: Посетитель)
Дата и время отправки вопроса: 16.01.2007, 17:12
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Ласковый 3лоумышленник (статус: 3-ий класс), 16.01.2007, 18:38]:

Здравствуйте, Сагынов Байсак Найсабекович!
Из личного опыта могу присоветовать изучить MS Access, на мой взглять понять суть реляционный БД даст только Эксесс. Потом любая СУБД будет по зубам

2. [Отвечает: Вадим К (статус: Высокий уровень), 17.01.2007, 11:50]:

По поводу Access соглашусь с предыдущим экспертом - очень удобно. Но только не нужно через BDE.
А В общем вопрос насколько широк, что и сайта не хватит.
А Самое лучшее ищем книгу по делфи и смотрим что бы там был описан доступ через ADO

Текст вопроса:

Нужно перенести вкладку компонентов QReport из пятой версии в седьмую. Это возможно?

Автор вопроса: Тамара (статус: Посетитель)
Дата и время отправки вопроса: 16.01.2007, 19:41
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Ласковый 3лоумышленник (статус: 3-ий класс), 16.01.2007, 19:55]:

Здравствуйте, Тамара!
У меня получилось так:
1. Запуск D7
2. Выбирай в меню Component|Install Packages...
3. Жмём кнопку Add...
4. В появившемя диалоговом окне нужно выбрать файл dclqrt70.bpl (а находится он в \Delphi 7\Bin - это по умолчанию в Program Files\Borland)
Вот и всё, вкладка появится

Оценка за ответ: 5.

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 17.01.2007, 04:20]:

Здравствуйте, Тамара!

Все зависит от поставки Deplhi 5, знаю что в Enterprise нет исходных текстов QReport. Как известно DCU/BPL от одной версии Delphi не подходят к другой, поэтому их поставить не получится.

Пакет dclqrt70.bpl также поставляется не со всеми комплектациями и представляет собой те же самые QReport без исходников, компилированные на Delphi 7.

Оценка за ответ: 5.

3. [Отвечает: Вадим К (статус: Высокий уровень), 17.01.2007, 11:52]:

Но ещё лучше перейти на альтернативное средство, к примеру FastReport (можно FreeReport - чуть меньше функций, но бесплатно!) - вы будете поражены набором функций

Оценка за ответ: 5.

Текст вопроса:

Доброе время суток, господа Эксперты. Я ярый сторонник Дельфи. я хочу научиться писать скрипты в Дельфи. У меня стоит винда ХРень. Как мне написать скрипт. На сайте у меня есть строка ввода и кнопка. По нажатию на кнопку я обращаюсь к скрипту и у меня должна перезагрузиться страница, только содержимое строки ввода должна быть внизу после всего.(типо гостивой книги). Скачавать готовые скрипты гостевой книги не хочу, хочу во всем разоброться. Я понимаю, что ни кто мне тут исходник не вылажет, тогда хотя бы ссылку дайте на литер-ру в инете, потому что в сети и так мало статей(в смысле скрипты на дельфи). Хорошию трудно найти. Заранее благодарен.

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 17.01.2007, 02:30
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 17.01.2007, 05:01]:

Здравствуйте, Geron!

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

Итак, во-первых никакой скрипт Вы на Delphi не непишите, это называется CGI-BIN приложения (CGI - Common Gateway Interface, BIN - потому что представляет собой бинарный код, а не какой-нибудь там скрипт).

CGI-BIN приложения, генерируемые Delphi, будут работать только на Windows платформе, под управлением IIS (WinNT), Personal Web Server (Win98), порта Apache под Windows или другим Windows Web сервером. Кроме того, BIN приложения, как Вы понимаете, обладают значительно большей "властью" над системой, чем PHP, Perl и др. web языки, поэтому полномочия таких приложений часто ограничиваются, вплоть до полного запрета их выполнения.

Delphi позволяет создавать несколько типов CGI-BIN приложений, от использования обычного консольного вывода (тапие приложения можно и в ассемблере писать), до ASP.NET (Delphi 2005).

Рассмотрим некоторые подробнее:

1. Обычный console-exe.
Обычное консольное приложение может выступать в качестве CGI-BIN, используя Write/WriteLn можно выводить в браузер любую информацию. Параметры командной строки можно парсинговать, получая POST данные запроса. Как получить GET смотите, например, здесь: www.delphiworld.narod.ru/base/cgi_apps.html.
Недостаток - при каждом запросе приложение загружается в память, выполняется, затем выгружается, что сильно замедляет работу сервера.

2. WebSnap Application.
Набор компонентов и классов для быстрого создания динамических web страниц. Ориентирован в основном на работу с базами данных. Выберите New\WebShap\WebSnap Application. Появится диалог выбора типа приложения. Как понятно из названий, ISAPI/NSAPI представляет собой Dll библиотеку, т.е. не загружается в память вновь при каждом обращении. CGI Stand-alone executable - то же самое, что console-exe, только Вы можете работать визуально и имеете множество вспомогательных классов и компонент под рукой. Apache Shared Moduleы - Dll, подключаемые как модули к Apache - работают побыстрее ISAPI/NSAPI, но сложнее отлаживать.

3. ASP.NET (Delphi 8/2005).
Технология Microsoft, позволяющая вести разработку Web приложений визуаально, т.е. вы располагаете контент страницы как компоненты на форме. Посмотрите например сайт Microsoft, он весь (или почти весь) написан на ASP.NET.

Оценка за ответ: 5.

Текст вопроса:

Всем Привет!
Помогите сделать докачку в этом коде.
Спасибо

Приложение:

procedure TServerForm.IdTCPServer1Execute(AContext: TIdContext); var s: string; AStream: TIDStreamVCL; Filename: string; FileSize: int64; i,n:integer; begin while AContext.Connection.Connected do begin s := AContext.Connection.IOHandler.ReadLn; if S = 'FILE' then begin Filename := AContext.Connection.IOHandler.ReadLn; // get filename FileSize := StrToInt(AContext.Connection.IOHandler.ReadLn); // get filesize ForceDirectories(ExtractFilePath(Paramstr(0)) + 'InServerTCP'); AStream := TIDStreamVCL.Create(TFileStream.Create(ExtractFilePath(Paramstr(0)) + 'InServerTCP\' + Filename, fmCreate), True); Application.ProcessMessages; try Memo1.SelAttributes.Color := clBlue; Memo1.Lines.Add('&#207;&#238;&#235;&#243;&#247;&#229;&#237;&#232;&#229; &#244;&#224;&#233;&#235;&#224; [ '+AContext.Connection.Socket.Binding.PeerIP + ' ] " ' + Filename + ' " '+'&#206;&#225;&#249;&#232;&#233; &#240;&#224;&#231;&#236;&#229;&#240;: ' + BytesToStr(Filesize) + ''); Label2.Caption:= '&#200;&#236;&#255; &#244;&#224;&#233;&#235;&#224;: '+Filename; Label3.Caption:='&#208;&#224;&#231;&#236;&#229;&#240;: '+ BytesToStr(Filesize); //---------------------------------------------------------------------------------------------------- i:=FileSize div (32*1024);//&#243; &#237;&#224;&#241; &#225;&#235;&#238;&#234;&#232; &#239;&#238; 16 &#234;&#225; n:=filesize mod (32*1024); ProgressBar1.max:=i+1; ProgressBar1.Position:=0; for i:=0 to i-1 do begin AContext.Connection.IOHandler.ReadStream(AStream, 32*1024, False); ProgressBar1.Position:=i; Edit1.Text:=BytesToStr(i); Application.ProcessMessages; end; //&#192; &#242;&#229;&#239;&#229;&#240;&#252; &#231;&#224;&#234;&#224;&#247;&#232;&#226;&#224;&#229;&#236; &#238;&#241;&#242;&#224;&#242;&#238;&#234; AContext.Connection.IOHandler.ReadStream(AStream, n, False); ProgressBar1.Position:=ProgressBar1.max; //------------------------------------------------------------------------------------------------------ Application.ProcessMessages; Memo1.SelAttributes.Color := clOlive; Memo1.Lines.Add('C &#224;&#228;&#240;&#229;&#241;&#241;&#224; [ '+AContext.Connection.Socket.Binding.PeerIP + ' ] &#200;&#236;&#255; &#244;&#224;&#233;&#235;&#224; " ' + Filename + ' " &#239;&#238;&#235;&#243;&#247;&#229;&#237; !'); Memo1.Perform(WM_VScroll, SB_LINEDOWN,0); TrayIcon1.ShowBalloonHint('" Server TCP "', '&#212;&#224;&#233;&#235; " '+Filename+' " &#243;&#241;&#239;&#229;&#248;&#237;&#238; &#239;&#238;&#235;&#243;&#247;&#229;&#237; !', BitWarning, 10); ProgressBar1.Position:=0; finally FreeAndNil(AStream); end; end else if S = 'QUIT' then begin Memo1.SelAttributes.Color := clRed; Memo1.Lines.Add('&#202;&#235;&#232;&#229;&#237;&#242; [ '+AContext.Connection.Socket.Binding.PeerIP + ' ] &#238;&#242;&#234;&#235;&#254;&#247;&#232;&#235;&#241;&#255; !'); TrayIcon1.ShowBalloonHint('" Server TCP "', '&#202;&#235;&#232;&#229;&#237;&#242; [ '+AContext.Connection.Socket.Binding.PeerIP + ' ] &#238;&#242;&#234;&#235;&#254;&#247;&#232;&#235;&#241;&#255; !', BitWarning, 10); AContext.Connection.Disconnect; Application.ProcessMessages; end else begin Memo1.SelAttributes.Color := clRed; Memo1.Lines.Add(AContext.Connection.Socket.Binding.PeerIP + ' :&#205;&#229;&#232;&#231;&#226;&#229;&#241;&#242;&#237;&#224;&#255; &#234;&#238;&#236;&#236;&#224;&#237;&#228;&#224;: ' + S); AContext.Connection.Disconnect; AStream.Free; end; end; end;

Автор вопроса: Vit2 (статус: Посетитель)
Дата и время отправки вопроса: 19.01.2007, 15:51
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: Высокий уровень), 19.01.2007, 16:24]:

Наиболее просто - сделать так, как в HTTP протоколе. А именно, на сервере добавляете возможност, что файл можно запрашивать не весь а часть и для этого его емя нужно задать в виде<имяфайла>?<с какого байта>-<по какой>
Клиент же запрашивает не весь файл, а по кускам. Правда прийдётся добавить комманду запроса размера файла.

Такая система будет совместима сверху вниз и наоборот. Тоесть старый сервер сможет обслуживать новых клиентов (просто не будет докачки) и наоборот

Оценка за ответ: 5.

Текст вопроса:

Команда кнопке : Memo1.text:= 'Первое слово';
как сделать так чтобы нажав второй раз
высветилась другая фраза например:'второе слово',
нажав третий раз 'третье слово' и так далее.

Автор вопроса: Толков Геннадий Викторович (статус: Посетитель)
Дата и время отправки вопроса: 20.01.2007, 01:06
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 20.01.2007, 03:46]:

Здравствуйте, Толков Геннадий Викторович!

Очень просто - ставите глобальную переменную счетчик, увеличиваете его каждый раз при вызове обработчика, и выводите текст в соответствии в значением этого счетчика.

Приложение:

const strs : array[0..2] of string = ('Первое слово', 'Второе слово', 'Третье слово'); var Counter : Integer; begin // in Button.Click Memo1.text:= strs[Counter]; Inc(Counter); end.

Оценка за ответ: 5.

2. [Отвечает: Дима Гусаков (статус: 2-ой класс), 20.01.2007, 09:01]:

Здравствуйте, Толков Геннадий Викторович!

Приложение:

{Во время создания форму (или выполнения программы) свойству Tag кнопки присвойте значение 1.} Memo1.Clear;//очистка поля Memo case Button1.Tag of //количество нажатий кнопки 1: Memo1.Text := 'Первое слово'; 2: Memo1.Text := 'Второе слово'; 3: Memo1.Text := 'Третье слово'; 4: Memo1.Text := 'Четвертое слово'; 5: Memo1.Text := 'Пятое слово' else Memo1.Text := Шестое слово'; end; Button1.Tag := Button1.Tag + 1; //следующее значение

Оценка за ответ: 5.

Текст вопроса:

Как сделать чтобы программа запускалась по паролю. Чтобы пароль задавался в коде программы (програмка исключительно для себя)

Автор вопроса: Pokemonchyk (статус: Посетитель)
Дата и время отправки вопроса: 20.01.2007, 22:08
Получено ответов на вопрос: 4
Сообщений в форуме вопроса: 10
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Сергей Устинов (статус: 2-ой класс), 20.01.2007, 22:36]:

Здравствуйте!

Самый простой вариант - в файл проекта перед строкой Application.CreateForm(TForm1, Form1); введите:
if InputBox('Внимание!','Введите пароль!','')<>'pass' then exit;

(не забудьте перед этим в Uses добавить модуль Dialogs).

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

Удачи

Приложение:

program Project1; uses Forms, Dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; if InputBox('Внимание!','Введите пароль!','')<>'pass' then exit; Application.CreateForm(TForm1, Form1); Application.Run; end.

Оценка за ответ: 5.

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 21.01.2007, 03:07]:

Здравствуйте, Pokemonchyk!

В этом вопросе все зависит от соотношения Ваших умений к необходимой стойкости защиты. Я всегда рекомендую в таких случаях шифровать часть кода программы в файле, а затем расшифровывать в памяти введенным паролем или гаммой, полученной из него. Далее сверяете несколько первых расшифрованных байт с оригиналом и делаете вывод верен пароли или нет. Даже если потенциальный вломщик обойдет этот момент - программа все-равно не будет корректно работать, поскольку часть кода осталась зашифрованна.

Если интересно, могу поделиться рабочим кодом.

Есть еще очень простой и удобный вариант - воспользоваться PE Password Encryptor от SMT - эта малюсенькая программка подобно протектору шифрует часть кода в точке входа и вставляет туда загрушку в виде диалога ввода пароля. Если пароль введен верно - программа нормально запускается.

См. http://expert.delphi.int.ru/download_39.

Оценка за ответ: 4.

3. [Отвечает: Alex Van Glukhman (статус: 7-ой класс), 21.01.2007, 12:02]:

Добрый день!

Создаём отдельную форму для авторизации (см. код ниже)
При создании главной формы приложения на событие OnCreate пишем вызов формы авторизации

FPass:=TFPass.Create(Application);
try
if FPass.ShowModal=mrOk then ;
finally
FPass.Free;
FPass:=nil;
end;

Удачи

Приложение:

unit uPass; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB; type TFPass = class(TForm) LLogin: TLabel; LPass: TLabel; ELogin: TEdit; EPass: TEdit; BGo: TButton; BExit: TButton; procedure BGoClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ELoginChange(Sender: TObject); procedure BExitClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FPass: TFPass; FlagClosed: Boolean = false; Attempt: Integer = 0; implementation {$R *.dfm} procedure TFPass.BExitClick(Sender: TObject); begin Application.Terminate; end; procedure TFPass.BGoClick(Sender: TObject); begin if (ELogin.Text='USER') AND (EPass.Text='PASSWORD') then begin FlagClosed:=true; ModalResult:=1; end else begin if Attempt=2 then begin ModalResult:=1; Exit; end; inc(Attempt); ShowMessage('Неверная авторизация!'); ELogin.SetFocus; end; end; procedure TFPass.ELoginChange(Sender: TObject); begin if (ELogin.Text<>'') AND (EPass.Text<>'') then BGo.Enabled:=true else BGo.Enabled:=false; end; procedure TFPass.FormClose(Sender: TObject; var Action: TCloseAction); begin if not FlagClosed then Application.Terminate; end; end.

Оценка за ответ: 5.
Комментарий: Здравствуйте! Большое спасибо за ответ. Все работает {с даного примера я также понял что все компоненты лучше называть своими именами, а не Edit1,Edit2,...а потом сидеть и голову ламать где что :)} Если не трудно, то подскажите еще где надо покопаться чтобы звездочками показывало пароль (я думаю это как-то звязано с MaskEdit) Я конешно могу и монитор выключать на если доведется ввести пароль при посторонних, но все же... :)

4. [Отвечает: min@y™ (статус: Средний уровень), 22.01.2007, 08:20]:

Чтоб пароль показывало звёздами - поставь свойство Edit.PasswordChar := '*';.

Текст вопроса:

Вопрос неординарный :)
Можно ли сделать такую прожку, чтобы при записи диска записывала на него .тхт-файл, где будут хранится номера всех поврежденных секторов DVD-диска(или как-то еще пометить эти сектора)?
Потом похожая программа оценит этот файл и не будет считывать с этих секторов информацию
(и не будет показывать ошибок).
Таким образом РВ-диски можно будет использовать много раз, и можно быть уверенным что информация не будет "записываться" на поврежденные сектора.

Приложение:

Это хотя бы теоретически возможно?

Автор вопроса: Pokemonchyk (статус: Посетитель)
Дата и время отправки вопроса: 21.01.2007, 01:02
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Сергей Устинов (статус: 2-ой класс), 21.01.2007, 01:20]:

Здравствуйте!

Лично мое мнение (может не совпадать с реальностью):
Теоретически это возможно: перед записью программа пытается считать все сектора по-порядку - результаты сохраняет в какой-либо файл. Потом этот файл добавляется к тому, что записывается на диск и лишь потом происходит запись. Соответственно, при считывании сначала считывается такой файл, а уже потом читается сам диск.

Вот только один момент: а есть ли в этом смысл?
Смотрите: Вам нужно получить физический доступ к ДВД диску - считать посекторно, создать модуль записи на ДВД (при этом я думаю будет какая - то разница для разных видов ДВД, разных видов болванок и т.д. не зря же, например за NERO Burning Rom денежки берут...) ну и еще куча всяких запарок...
Может проще новую болванку купить? :)

Удачи!

Оценка за ответ: 5.
Комментарий: Значит все-таки возможно... :)

2. [Отвечает: Матвеев Игорь Владимирович (статус: Средний уровень), 21.01.2007, 03:44]:

Здравствуйте, Pokemonchyk!

Вопрос действительно "неординарный"...

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

Кстити, если кому нужна запись CD/DVD - есть пакет Magic CD DVD Burner - http://www.binarymagics.com, правда платный.

Оценка за ответ: 5.

3. [Отвечает: Бубырь Александр Николаевич (статус: 4-ый класс), 22.01.2007, 08:55]:

Несколько месяцев назад в одной из рассылок (сейчас уже не помню в какой) приводился даже исходник. Идея в следующем: создается файл контейнер, в который пишутся данные и кодируются с избыточным кодом (наподибие Raid), в случае повреждения данных в одном месте, они берутся из другого.
Минусы: полезная емкость диска уменьшается (хотя надежность важнее), доступ к файлам контейнера только через оболочку, нет 100% гарантии целостности данных (зависит от степени избыточности кодирования и количества ошибок на диске).
Плюсы: на ДВД не так уж много ошибок (обычно)(поэтому даже при появлении новых ошибок, появившихся уже после записи, большая вероятность что данные уцелеют).
Так что советую поискать в инете (извиняюсь за плохую память, но сама идея надеюсь поможет).

Текст вопроса:

Здравствуйте!
А можно ли с помощью Delphi написать свой ToolBar для Internet Explorer и для других интернет-браузеров?

Может есть какие-нибудь статьи по данной тематике, или кто-то может помочь?

В инете искал, ничего не нашел!

За ранее большое спасибо за ответ!

Автор вопроса: Евгений В (статус: 1-ый класс)
Дата и время отправки вопроса: 21.01.2007, 21:33
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: Высокий уровень), 21.01.2007, 22:25]:

Конечно можно!
Вот здесь можно почитать как добавить кнопку в IE http://www.delphiworld.narod.ru/base/own_ie_button.html
С панельками - посмотрите готовые решения на http://www.torry.net/quicksearchd.php?String=Internet+Explorer+ToolBar&Title=No
Там есть готовые библиотеки. Половина с них триальная, но разве это большая пробелема?

С Opera будет посложней. Там тоже можно добавить кнопку, но вот с панельками - даже не знаю.

Наиболее легко с FireFox - идете на их сайт - там всё подробно написано, только Делфи тут уже мало поможет - там на java пишеться.

Оценка за ответ: 5.

2. [Отвечает: min@y™ (статус: Средний уровень), 22.01.2007, 08:25]:

Набрал в гугле "toolbar для IE на delphi" - куча ссылок.

Оценка за ответ: 3.

Текст вопроса:

Здравствуйте.
Как можно определить количество заполненных строк компонента StringGrid1?
Сколько разрядов в стандартной записи вещественного числа? И ещё назовите, пожалуйста, стандартную функцию с ее параметрами для преобразования вещественного числа в строку с указанием формата записи числа.
С уважением, Сергей Анатольевич.

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 21.01.2007, 21:56
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: Высокий уровень), 21.01.2007, 22:42]:

>>Как можно определить количество заполненных строк компонента StringGrid1?
А что же сложного? Для начала определимся, что такое "заполненая строка"
для этого напишем функцию
function LineFull(sg:TStringGrid,l:integer):boolean;
var i:integer;
begin
result:=false;
for i:=0 to sg.ColCount-1 do
if Trim(sg.Cells[i,l])='' then exit;
result:=true;
end;
Я предположил, что заполненая строка не должна содержать незаполненых строк. ячейки с одними пробелами считаются пустыми.
Теперь фунцция, которая считает количество заполненых строк.
functio CountFullLine(sg:TStringGrid):integer;
var i:integer;
begin
result:=0;
for i:=0 to sg.RowCount-1 do
if LineFull(sg,i) then inc(result);
end;
Вызываем так count:=CountFullLine(StringGrid1);
------------
>>Сколько разрядов в стандартной записи вещественного числа?
Всё зависит от типа переменной: Single(около 7), Extendet(18),Double(15). Но ответить точно на этот вопрос нельзя. Нельзя в десятичной системе счисления, но можно в двоичной. Достаточно посмотреть в хелпе, скоко розрядов отводиться под мантису. Просто поищите в хелпе по словам Real Double. Там всё есть!
----------------
>>И ещё назовите, пожалуйста, стандартную функцию с ее параметрами для преобразования вещественного числа в строку с указанием формата записи числа.
Как не странно, это
function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision: Integer; Digits: Integer): string; overload;
первый параметр собственно само число.
второй - константа, которая указывает способ форматирования числа ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency
третий и четвёртый указывают сколько чисел отвести под дробную часть и под число в целом.

Оценка за ответ: 5.

2. [Отвечает: Николай Рубан (статус: 4-ый класс), 21.01.2007, 22:49]:

1) Как можно определить количество заполненных строк компонента StringGrid1?

Вот процедура:
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,kol,rez:integer;
b:boolean;
begin
kol:=0;//количество НЕ заполненных строк
with StringGrid1 do
for i:=0 to RowCount-1 do
begin
b:=true;
for j:=0 to RowCount-1 do
if Cells[j,i]<>'' then
begin b:=false; break; end;
if b then inc(kol);
end;
rez:=StringGrid1.ColCount-1-kol;//количество заполненных строк
end;

2) И ещё назовите, пожалуйста, стандартную функцию с ее параметрами для преобразования вещественного числа в строку с указанием формата записи числа.

Рекомендую Вам пользоваться функцией Format().
function Format(const Format: string; const Args: array of const) : string;

Первым параметром функции выступает форматирующая строка. Это обычная текстовая строка, но в ней на нужных местах стоят специальные символы, которые определяют, какие и как туда будут подставлены параметры.

Второй параметр функции Format называется списком аргументов. Он и содержит "вставляемые" в форматирующую строку параметры. Обратите внимание, что этот открытый массив имеет тип array of const, и в нем может передаваться переменное число разнотипных параметров.

Более подробно о параметрах и возможностях функции можно прочитать по ссылкеhttp://psf.grsu.by/UchProc/konspekt/delphi/ch05/ch03.

Удачи!!!

Оценка за ответ: 5.

Текст вопроса:

Стоит задача создать сервис, который при старте запустит другое приложение через СОМ. И чтоб это приложение висело в памяти до остановки службы.
Дайте что-то почитать про использование обработчиков OnExecute,OnStart etc.

Приложение:

Вот код. Если включаю его в OnExecute -служба при старте зразу останавливается. RezultConnect := 0; OdnaC := CreateOLEObject('V77S.Application'); BaseAdres := 'D:\!Balabasy\!Work\Prophoto\SQLBase'; UserName := 'worm'; UserPwd := 'infinity'; try RezultConnect := OdnaC.initialize(OdnaC.rmtrade,'/d'+BaseAdres+' /n '+UserName+' /p '+UserPwd,'NO_SPLASH_SHOW'); Except exit; end; try Gdem:=OdnaC.EvalExpr('glOnline()'); Except exit; end;

Автор вопроса: Вакуленко (статус: Посетитель)
Дата и время отправки вопроса: 22.01.2007, 22:19
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 10
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: Высокий уровень), 23.01.2007, 01:51]:

Вы используете COM объекты, поэтому ваше приложение должно сообщить операционной системе об этом. Делается это вызовом процедуры CoInitialize в самом начале вашей проги. Это общеизвестная проблема.
По поводу почитать могу порекомендовать только MSDN. В часности, замечу, что обработчик OnStart должен быть как можно быстр. Если он будет выполнятся долго, то Операционная система вправе "прибить" ваш сервис. И во вторых, непытайтесь делать активное взаиводействие с пользователем - типа MessageBox'ов - для этого сервис должен быть интерактивным и соответственно накладываются определённые особенности.

2. [Отвечает: Лукьяненко Алексей Валериевич (статус: 1-ый класс), 23.01.2007, 11:46]:

Здравствуйте, Вакуленко!

По поводу COM вам рассказали, добавлю лишь, что при окончании работы нужно вызвать CoUninitialize. Эту пару вызовов необходимо делать для каждого потока, использующего COM. Приложение с сервисом использует 2 потока - поток запустивший сервис (события OnStart, OnStop, OnShutdown) и собственно поток сервиса (OnExecute).
Реализация вашего кода, если это сервис, должна быть записана в обработчике OnExecute. При этом нужно помнить:
1. При выходе из OnExecute сервис завершает свою работу и останавливается.
2. Чтобы сервис мог реагировать на системные ссобщения (типа остановить, перезапустить и др.) в коде сервиса нужно периодически вызывать ServiceThread.ProcessRequests(Wait: Boolean);
Параметр Wait указывает, ждать ли сообщений системы, или только обработать то, что есть в очереди и вернуть управление вызывающему.
В Вашем случае для организации работы сервиса после запуска COM-серверов нужно создать бесконечный цикл, вызывающий ServiceThread.ProcessRequests(True);

Оценка за ответ: 5.

Текст вопроса:

Здравствуйте!
По условию, существует некий файл *.dat, в котором записаны фамилии работников(string) и их зарплаты(real).
Создана структура данных типа "Запись" для обработки требуемых сведений:
Type sotrudn = record
surname:str;
zarpl:real;
end;

Из этого файла нужно считать данные(фамилии работников и их зарплаты) и вывести их в компонент StringGrid1.
Проблема в том, что я не знаю как работать с файлами *.dat, не умею ни записывать их, ни считывать.
Знаю что файл нужно определять по структуре записи, в смысле ff:file of sotrudn;
Кстати, в ходе задачи создавался динамический массив для сохранения сведений о сотрудниках(Type massiv=array of sotrudn;)
Заранее благодарю, с уважением Сергей Анатольевич;

Автор вопроса: Полушин Сергей Анатольевич (статус: Посетитель)
Дата и время отправки вопроса: 23.01.2007, 17:19
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 5
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Виталий Лещенко (статус: 3-ий класс), 23.01.2007, 19:15]:

Здравствуйте, Полушин Сергей Анатольевич!
1. Не смотря на расширение файла его можно использовать как обычный текстовый файл.
2. Первой строкой пишеш туда (writeln(file,...)) кол-во сотрудников.
3. Затем для каждого сотрудника в новой строке пишеш данные о нем... хочеш в одну строку, хочешь в несколько.

Считывание происходит в аналогичном порядке.
1. Считываешь кол-во записей. Делаешь массив на столько записей.
2. В соответствии и выбранным форматом, для каждого сотрудника читаешь данные.

Оценка за ответ: 4.
Комментарий: По моему, просто записать кол-во сотрудников не получится, так как файл определяется по типу дданных. var ff:file of sotrudn;

2. [Отвечает: Николай Рубан (статус: 4-ый класс), 23.01.2007, 20:58]:

Начнем с того, почему Вы прицепились к расширению *.dat - вообще не важно какое расширение у типизированного файла, самое главное знать его структуру. Только тогда возможно полноценно с ним работать.

В приложении полный текст программы которая позволяет создавать и выводить типизированный файл указанного типа.

Для полноценной работы на форму проекта необходимо разместить две кнопки (TButton), одно поле ввода(TEdit) - в которое вводиться КОЛИЧЕСТВО записей которые нужно ВВЕСТИ. А также таблица (TStringGrid) - с такими настройками:
ColCount = 3
RowCount = 2
FixedCols = 1
FixedRows = 1 (но это все только для красоты) :)

Удачи!!!

Приложение:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Button2: TButton; StringGrid1: TStringGrid; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type sotrudn = record surname:string[30]; zarpl:real; end; var Form1: TForm1; datfl: file of sotrudn; dt_v:sotrudn; implementation {$R *.dfm} //создаем файл procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin AssignFile(datfl,'sotrudn.dat'); Rewrite(datfl); for i:=1 to StrToInt(Edit1.Text) do begin dt_v.surname:=InputBox(format('Запись № %d',[i]),'Фамилия',''); dt_v.zarpl:=StrToFloat(InputBox(format('Запись № %d',[i]),'Зарлата','')); write(datfl,dt_v); end; CloseFile(datfl); end; //читаем из файла данные procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin AssignFile(datfl,'sotrudn.dat'); Reset(datfl); i:=1; StringGrid1.RowCount:=FileSize(datfl)+1; StringGrid1.Cells[1,0]:='Фамилия'; StringGrid1.Cells[2,0]:='Зарплата'; while not eof(datfl) do begin read(datfl,dt_v); StringGrid1.Cells[0,i]:=Format('%d',[i]); StringGrid1.Cells[1,i]:=dt_v.surname; StringGrid1.Cells[2,i]:=Format('%.3f',[dt_v.zarpl]); inc(i); end; CloseFile(datfl); end; end.

Оценка за ответ: 5.
Комментарий: Большое Человеческое спасибо, вы единственный, от кого я получил то, что надо.

3. [Отвечает: Иусов Сергей Ник. (статус: 2-ой класс), 24.01.2007, 07:03]:

Здравствуйте, Полушин Сергей Анатольевич!

Смотри во вложении пример работы с типизарованными файлами.

Оценка за ответ: 4.