Вопросы по Delphi/Pascal

[kain_pl]

neonman, Посмотри тут - h__p://www.mikolatorbins.narod.ru/ человек назвал компонент MDITab.
Если не подойдет то хотябы идею посмотришь

[neonman]

kain_pl, а вы там давно были?

Цитата: Кончился Интернет, всё приехали...

[tomor]

Не подскажите как в Wordе сделать свою панель, через ActiveX компонент?

[DonAlex]

У меня возникла такая проблема, помогите плиз.
1. Есть прога из наскольких форм. На главной форме есть компонент Image. В него через событие самой формы OnActivate() рандомно загружается картинка из папки images, которая лежит в каталоге с прогой:

Image1.Picture.LoadFromFile('images\' + s + '.jpg');

На другой форме есть компонент DBImage. В него картинка загружется через диалоговое окна, после нажатия кнопки. Вот после этого, как я закрываю форму с DBImage, появляется ошибка, что не найден каталог для загрузки картинки в Image. И путь показывает такой: 'Путь к картинке для DBImage + Путь к картинке для Image'. Т.е. как бы получается что вместо
Image1.Picture.LoadFromFile('images\' + s + '.jpg');
подставляется функция вызывающая ошибку:
Image1.Picture.LoadFromFile('Путь к картинке для DBImage' + 'images\' + s + '.jpg');
Объясните пожалуйстя почему так получается и как решить эту проблему?

2. Это еще не всё
Через одно событие по нажатию на кнопку работаю с DBImage и с файлом '.ini'. И опять же если я загружаю картинку в DBImage, то выскакивает ошибка, что не может ничего записать в ini-файл. А если не загружать никакую картинку в DBImage, то и в ini-файл всё нормально записывается. Почему так? Помогите пожалуйста.

[DonAlex]

Сам разобрался с проблемой. При такой работе программы, я так понял меняется глобальная переменная, которая содержит путь к текущему каталогу. И если указывать не полный путь в функциях LoadFromFile, то путь в начале достраивается именно из переменной, содержащей путь к текущему каталогу. Чтобы проблема не возникала, нужно указывать везде полный путь к нужному каталогу. Но так появляется проблема с переносимостью проги. Я её решил так: с помощью функции

GetCurrentDir;

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

[sevenup]

DonAlex, Вместо обращения к GetCurrentDir целесообразнее получать имя каталога программы из полного имени запущенной программы. Например, таким образом:

ExtractFilePath(ParamStr(0))

или

ExtractFilePath(Application.ExeName)

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

[kokos]

Цитата: Сообщение от 1Clergyman Люди подскажите есть ли способ поставить среду Delphi7 под, мать её, висту.

А в чем проблема? Запуск правой кнопкой мыши - от имени администратора.

[Sergey_Murzi]

Цитата: Сообщение от kokos А в чем проблема? Запуск правой кнопкой мыши - от имени администратора.

А еще проще сходить http://support.microsoft.com/kb/947562 и все устаканится. Обновляться надо

[olb]

Какие функции Delphi делают преобразование строк из ANSI в OEM? В каком юните посмотреть их сигнатуру?

[Vasuha]

AnsiToOem
Windows.pas

[olb]

То что доктор прописал, пасибки ...

[LeXeR33]

Подскажите хороший мануал по написанию чата вида клиент-сервер на delphi.

[Vo1t]

http://www.xakep.ru/magazine/xa/038/061/1.asp - чат вида клиент - клиент
http://pblog.ru/?p=100 - чат вида сервер - клиент
http://www.delphimaster.ru/articles/sockadv/index.html - чат вида сервер - клиент

http://forum.antichat.ru/threadnav92705-2-10.html - чат вида сервер - клиент (сервер расположен в виде PHP странички в интернете)

[o_ly]

ошибка после установки Update 3 in 2009 "Access violation in Module rtl120.bpl at 00000000"
Что с ней делать? Переустанавливать весь 2009 ? Морочно. Нет ли возможно отменить update?

[Pashist]

Привет всем, подскажите пожалуйста. решаю задачку "Некоторое число заканчивается на двойку. Если ее переставить на первое место, то число удвоится. Какое минимальное число было изначально?"

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

program chislo;
uses crt;
var x, y, z,i, a: integer;
var s, t:string;

function Str2Int(str:string):integer;
var Res, code:integer;
begin
     val(str,res,code);
     str2int:=res;
end;
function Int2Str(I:integer): String;
var S: string[11];
begin
  Str(I, S);
  Int2Str := S;
end;

begin
 z:=1;
 x:=2;
 while z<>0 do
  begin
   x:=x+10;
   s:=int2str(x);
   readln(s);
   a:=length(s);
   t:=s[a];
   for i:=a downto 2 do s[i]:=s[i-1];
   s[1]:=t;                <=начиная с этой строки вываливается error 26 tipe mismatch
   y:=str2int(s);
   z:=(y/2)-x;
  end;
 writeln("Iskomoe =",x, "udvoennoe=",y);
 readln;
end.

если что ногами не пинайте сильно. за паскалем сидел последний раз года 4 назад