VPF::Падает приложение - Форум программистов

DYUMON

Дата 20.2.2008, 00:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3

Вот такой у меня код

Код


procedure TForm1.Button1Click(Sender: TObject);
 var
  slovar:TStrings;
    i:integer;
      strk:Pchar;
begin

  slovar:=tstringlist.Create;
  slovar.LoadFromFile(filebook);
  label1.Caption:='Â ñëîâàðå '+inttostr(slovar.Count-1)+ ' çàïèñåé';
 for i:=0 to slovar.Count-1 do
 begin

 strk:=strnew(' x -y ');
  strk:=strcat(strk,(Pchar(filerar)));
   strk:=strcat(strk,' -p');
    strk:=strcat(strk,Pchar(slovar.Strings[i]));

   try
    Shellexecute(handle,nil , '7z.exe', strk,nil,SW_HIDE);
   except
     on e:Exception do Showmessage(e.message);
   end;
 StrDispose(strk);
 end;
 slovar.Free;
end;

так вот сама прога падает с выскакиванием отладчика чего обычно я не встречал

сообщние выдает такое
---------------------------
Debugger Fault Notification
---------------------------
Project UnrarX.exe faulted with message: 'access violation at 0x004059c1: write of address 0x00030df4'. Process Stopped. Use Step or Run to continue.
---------------------------
OK
---------------------------
и окно отладчика вылазиет
я уже чего только не пробовал не помогает. Может кто знает способ от этого избавится?

--------------------

Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.

MetalFan

Дата 20.2.2008, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

Цитата(DYUMON @ 20.2.2008, 00:08

)

strk:=strnew(' x -y ');
  strk:=strcat(strk,(Pchar(filerar)));
   strk:=strcat(strk,' -p');
    strk:=strcat(strk,Pchar(slovar.Strings[i]));

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

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »