Небольшие вопросы...

@vitaly576 · Регистрация: 12.12.2007

Студворк — интернет-сервис помощи студентам

1. Как сделать чтобы при сохранении файла с данными программа создавала свой .dll файл, и туда закидывала данные!
2. С помощью чего, при окрытии программы, можно сделать, форму пароля! То есть при входе в прогу выдавался запрос на ввод пароля, если пароль не верен, предлагается ввести еще раз!
А если верный то открывается программа!

@vitaly576 · 07.01.2008, 23:42 **[ТС]**

как же она не существует?!
так ладно... а какой тогда код написать чтобы он открывал форму 2??

Delphi
1
2
3
4
5
6
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;

Вот так что-ли будет?

@4erep_88 · 08.01.2008, 04:36

Если кликнуть по File->New Form, то получается следующее...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2); //создание формы
  Application.Run;
end.

После этого можно и Form2.Show

@vitaly576 · 09.01.2008, 14:28 **[ТС]**

и у вас работает?!

@4erep_88 · 09.01.2008, 14:45

Если бы у меня не работало, то я бы не писал

@vitaly576 · 09.01.2008, 23:26 **[ТС]**

я так понял в program Project1; надо сделать еще условие?!
то есть к примеру

Delphi
1
2
3
if .... then 
Application.CreateForm(TForm2, Form2); //создание формы
  Application.Run;

@4erep_88 · 10.01.2008, 02:41

Не правильно понял ты меня.

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

Code
1
2
3
4
5
6
7
 
if (Length(edit1.text)=0) or (Length(edit2.text)=0) then MessageDlg('Все поля должны быть заполнены', mtInformation, [mbOk], 0) ;
log:=strtofloat(edit1.Text);
pass:=Strtofloat(edit2.Text);
if (pass<>12345) or (log<>54321)
then MessageDlg('Неправильный логин или пароль, повторите ввод данных', mtError, [mbok], 0)
 else [B]Form2.show[/B];

Это не работает потому, что у тебя Form2 отсутствует. Чтобы ее создать кликни по File->New Form.

@vitaly576 · 11.01.2008, 19:35 **[ТС]**

вот прикиньте прикол... следую вашим инструкциям, все равно ту ошибку пишет... я уже не знаю в чем дело... пишу все правильно, логично....((((

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

@vitaly576 1 / 1 / 0 Регистрация: 12.12.2007 Сообщений: 93

	Небольшие вопросы... 23.12.2007, 15:26. Показов 4175. Ответов 26 Метки нет (Все метки) 1. Как сделать чтобы при сохранении файла с данными программа создавала свой .dll файл, и туда закидывала данные! 2. С помощью чего, при окрытии программы, можно сделать, форму пароля! То есть при входе в прогу выдавался запрос на ввод пароля, если пароль не верен, предлагается ввести еще раз! А если верный то открывается программа! 0

@vitaly576 1 / 1 / 0 Регистрация: 12.12.2007 Сообщений: 93
	09.01.2008, 14:28 [ТС]
	и у вас работает?! 0

@4erep_88 22 / 4 / 3 Регистрация: 18.07.2007 Сообщений: 169
	09.01.2008, 14:45
	Если бы у меня не работало, то я бы не писал 0

@vitaly576 1 / 1 / 0 Регистрация: 12.12.2007 Сообщений: 93
	11.01.2008, 19:35 [ТС]
	вот прикиньте прикол... следую вашим инструкциям, все равно ту ошибку пишет... я уже не знаю в чем дело... пишу все правильно, логично....(((( 0