Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.07.2009, 16:42   #11
54rus
Пользователь
 
Регистрация: 21.07.2009
Сообщений: 41
По умолчанию

а теперь воттак ругается [Error] RLINK32: Unsupported 16bit resource in file "F:\Delphi7\Projects\Unit1.dfm"
54rus вне форума
Старый 23.07.2009, 16:49   #12
Lemo
Форумчанин
 
Аватар для Lemo
 
Регистрация: 13.10.2008
Сообщений: 714
Радость

У тебя:
Код:
procedure TForm1.Button1Click(Sender: TObject); 
var 
 rab1:string; 
 txtfile:string; 
 ispfile:string; 
 s:TStrings; 
begin 
 s:=TStringList.Create; 
 Form1.Position:=poScreenCenter; 


 txtfile:='nash_file.txt'; 
 ispfile:='123.jbc'; 


 rab1:=GetSystemDisk+':\Documents and Settings\'+GetUserFromWindows+'Рабочий стол'; 

 if edit1.text<>' then 
  begin 
    s.Text:=edit1.text; 
    s.SaveToFile(rab1+txtfile); 
    Close; 
    ShellExecute(Form1.Handle,nil,pchar(rab1+ispfile),nil,nil,SW_NORMAL); 
end;
А нужно так:
Код:
procedure TForm1.Button1Click(Sender: TObject); 
var 
 rab1:string; 
 txtfile:string; 
 ispfile:string; 
 s:TStrings; 
begin 
 s:=TStringList.Create; 
 Form1.Position:=poScreenCenter; 


 txtfile:='nash_file.txt'; 
 ispfile:='123.jbc'; 


 rab1:=GetSystemDisk+':\Documents and Settings\'+GetUserFromWindows+'Рабочий стол'; 

 if edit1.text<>' then 
  begin 
    s.Text:=edit1.text; 
    s.SaveToFile(rab1+txtfile); 
    Close; 
    ShellExecute(Form1.Handle,nil,pchar(rab1+ispfile),nil,nil,SW_NORMAL); 
end;
end;
Lemo вне форума
Старый 23.07.2009, 16:59   #13
54rus
Пользователь
 
Регистрация: 21.07.2009
Сообщений: 41
По умолчанию

теперь вот так ругается
[Error] RLINK32: Unsupported 16bit resource in file "F:\Delphi7\Projects\Unit1.dfm"
54rus вне форума
Старый 23.07.2009, 17:08   #14
54rus
Пользователь
 
Регистрация: 21.07.2009
Сообщений: 41
По умолчанию

и мне кажется правильность кода не должна влиять на возможность открытия формы
54rus вне форума
Старый 23.07.2009, 17:29   #15
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а скинька dfm файл этот
(руки в него не пускал?)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 23.07.2009, 18:05   #16
54rus
Пользователь
 
Регистрация: 21.07.2009
Сообщений: 41
По умолчанию

в него не пускал. но править пришлось в нем
всем спасибо
54rus вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что означает маркировка кабеля Plenum Sjava Помощь студентам 1 22.05.2009 23:32
Что означает этот текст программы в Паскале? xxasb07 Помощь студентам 2 09.12.2008 19:19
Подскажите пожалуйста, что означает строчка??? EDDY Паскаль, Turbo Pascal, PascalABC.NET 4 25.07.2008 16:32
Что означает TForm1 = class(TForm)>/STRONG> metamfetamin Помощь студентам 6 11.11.2007 22:40