VPF::Access violation при чтении версии - Форум программистов

Sur0vy

Дата 20.1.2012, 15:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

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

Доброго времени суток!

Определяю версию программы, используя библиотеку jedi
Код примерно такой:

Код


.
.
.
private
    Vers: TJvVersionInfo;
    LongVers: TLongVersion;
.
.
.
procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  Vers:= TJvVersionInfo.Create('MyEXE.exe');
end;

procedure TFrmAbout.FormShow(Sender: TObject);
begin
  LongVers:= StringToLongVersion(Vers.FileVersion);
  lblVersion.Caption:= IntTostr(LongVers.All[2]) + '.' + IntTostr(LongVers.All[1]) + '.' + IntTostr(LongVers.All[3]);
end;

Работает нормально на компьютере, где установлена среда, запускаю на любом другом компьютере Access violation
Но это только часть проблемы, добавляю к коду одну строку

Код


.
.
.
private
    Vers: TJvVersionInfo;
    LongVers: TLongVersion;
.
.
.
procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  Vers:= TJvVersionInfo.Create('MyEXE.exe');
end;

procedure TFrmAbout.FormShow(Sender: TObject);
begin
  ShowMessage('111111111');
  LongVers:= StringToLongVersion(Vers.FileVersion);
  lblVersion.Caption:= IntTostr(LongVers.All[2]) + '.' + IntTostr(LongVers.All[1]) + '.' + IntTostr(LongVers.All[3]);
end;

И все наоборот: на моем компе с win7 и delphi xe2 вылетает, а на "чистой" XP все нормально работает.

Может было у кого-нибудь подобное волшебство?

northener

Дата 20.1.2012, 15:58 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(Sur0vy @ 20.1.2012, 15:36

)

Может было у кого-нибудь подобное волшебство?

Это не волшебство. Это нормальное поведение AV. Неверная работа с памятью не всегда приводит к AV. Так что не ищите разницы в компьютерах. Ишите саму ошибку.

Очень советую прочитать вот это. Причём полностью и вдумчиво.

Это сообщение отредактировал(а) northener - 21.1.2012, 01:32

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Akella

Дата 20.1.2012, 17:23 (ссылка)

(голосов:2)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Код


Type
  TFileInfo = Record
    CompanyName      : String;
    FileDescription  : String;
    FileVersion      : String;
    InternalName     : String;
    LegalCopyright   : String;
    LegalTradeMarks  : String;
    OriginalFileName : String;
    ProductName      : String;
    ProductVersion   : String;
    Comments         : String;
  end;



....


function TfmMain.xGetExeFileInfo(sAppName:string): TFileInfo;
type
  PTransBuffer = ^TTransBuffer;
  TTransBuffer = array[1..4] of smallint;
var
  iAppSize, iLenOfValue : DWord;
  pcBuf,pcValue         : PChar;
  VerSize               : DWord;
  pTrans                : PTransBuffer;
  TransStr              : string;
  fvip                  : pointer;
  i:Integer;
  const
  AK47 : array [0..9] of string = ('CompanyName','FileDescription','FileVersion',
                                   'InternalName','LegalCopyright', 'LegalTradeMarks',
                                   'OriginalFileName','ProductName',
                                   'ProductVersion','Comments' );
begin
  if not FileExists(sAppName) then exit;
     Result.CompanyName      := '';
     Result.FileDescription  := '';
     Result.FileVersion      := '';
     Result.InternalName     := '';
     Result.LegalCopyright   := '';
     Result.LegalTradeMarks  := '';
     Result.OriginalFileName := '';
     Result.ProductName      := '';
     Result.ProductVersion   := '';
     Result.Comments         := '';

  // get version information values
  iAppSize:= GetFileVersionInfoSize(PChar(sAppName),// pointer to filename string
                                    iAppSize);      // pointer to variable to receive zero
   // if GetFileVersionInfoSize is successful
  if iAppSize > 0 then
  begin
      pcBuf := AllocMem(iAppSize);
      GetFileVersionInfo(PChar(sAppName),              // pointer to filename string
                         0,                            // ignored
                         iAppSize,                     // size of buffer
                         pcBuf);                       // pointer to buffer to receive file-version info.

      VerQueryValue(pcBuf, '\', fvip, iLenOfValue);
      VerQueryValue(pcBuf, PChar('\VarFileInfo\Translation'),pointer(ptrans), verSize);
      TransStr:= IntToHex(ptrans^[1], 4) + IntToHex(ptrans^[2], 4);

      for i:=0 to 9 do
      begin
        Case i of
          0: if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
               Result.CompanyName := pcValue;
          1: if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
               Result.FileDescription := pcValue;
          2: if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
               Result.FileVersion := pcValue;
          3:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
              Result.InternalName := pcValue;
          4:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
               Result.LegalCopyright  :=  pcValue;
          5:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
              Result.LegalTradeMarks :=pcValue;
          6:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
             Result.OriginalFileName := pcValue;
          7:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
             Result.ProductName := pcValue;
          8:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
              Result.ProductVersion := pcValue;
          9:if VerQueryValue(pcBuf,PChar('StringFileInfo\' + TransStr + '\' + AK47[i] ), Pointer(pcValue),iLenOfValue) then
              Result.Comments := pcValue;
        end;//case
      end;
      FreeMem(pcBuf,iAppSize);
  end;
end;






//использование

Var
 FI : TFileInfo;
begin
  FI := xGetExeFileInfo(ParamStr(0));
  LabelVersion.Caption := constVersion + fi.FileVersion;

superVad

Дата 20.1.2012, 23:36 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

Sur0vy, на какой строчке вылетает тот самый АВ? Без этой информации можно долго гадать.
Если на другом компе нету делфи, то хотя бы по вставляй туда шоумеседжей, что бы определить...

Keeper89

Дата 21.1.2012, 01:42 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Надо бы добавить проверку на успешность получения версии, как-то так:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  JvVersionInfo: TJvVersionInfo;
  LongVersion: TLongVersion;
begin
  JvVersionInfo := TJvVersionInfo.Create('Project1.exe');
  try
    if JvVersionInfo.Valid then
    begin
      LongVersion := StringToLongVersion(JvVersionInfo.FileVersion);
      Caption := Format('%d.%d.%d', [LongVersion.All[2], LongVersion.All[1], LongVersion.All[3]]);
    end;
  finally
    FreeAndNil(JvVersionInfo);
  end;
end;

Это сообщение отредактировал(а) Keeper89 - 21.1.2012, 01:44

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

northener

Дата 21.1.2012, 02:39 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Извращенцы!

Зачем вам понадобилось помощь джедаев, чтобы получить полную информацию о версии программы?

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Keeper89

Дата 21.1.2012, 04:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Подключили всего один модуль, а ты сразу извращенцы smile

Хорошая объектная обертка. А кому нужна диета - можно прям вырезать GetFileVersionInfo оттуда, вот как вариант.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

БелАмор

Дата 21.1.2012, 11:10 (ссылка)

(голосов:2)

Загрузка ...

Бывалый

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

Репутация: 5
Всего: 17

Цитата(Sur0vy @ 20.1.2012, 15:36

)

Vers:= TJvVersionInfo.Create('MyEXE.exe');

1. Поиск чего-либо в текущем каталоге - путь мазохиста. Указывайте полный путь. Текущий каталог может смениться в любой момент. В частности, его меняют все диалоги открытия/сохранения файлов, имеющие настройки по умолчанию.
2. Указание литералом того, что можно получать автоматически - плохой стиль.
3. Полное имя своего исполняемого файла можно получить либо из командной строки ParamStr(0), либо из свойства Application.ExeName

Это сообщение отредактировал(а) БелАмор - 21.1.2012, 11:22

Akella

Дата 21.1.2012, 14:46 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

и чем же вам мой вариант не подходит?

Добавлено через 25 секунд
а джедаев используют только мазохисты

Snowy

Дата 21.1.2012, 16:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

А я всегда советовал брать свою версию из ресурса, а не обращаться к своему файлу.

CodeMonkey

Дата 21.1.2012, 16:26 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

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

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 21.1.2012, 19:14 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Snowy @ 21.1.2012, 16:13)

А я всегда советовал брать свою версию из ресурса, а не обращаться к своему файлу.

Цитата

Много замечательных программ, написано на дельфи. Вот ещё в копилку.
Медиаплейеры, написанные на Delphi:

Keeper89

Дата 21.1.2012, 23:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(Akella @ 21.1.2012, 14:46

)

а джедаев используют только мазохисты

Хоть кто-то аргументирует? smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

gesper

Дата 22.1.2012, 00:13 (ссылка)

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

Загрузка ...

"Shарфик"

Профиль
Группа: Участник
Сообщений: 183
Регистрация: 23.2.2005

Репутация: 1
Всего: 2

Чем плох такой вариант, как то не разбирался в нем досканально, но давно очень использую и на всех ОС работал, зачем куча кода?

Код


function GetVersion: string;
 var
   VerInfoSize: DWORD;
   VerInfo: Pointer;
   VerValueSize: DWORD;
   VerValue: PVSFixedFileInfo;
   Dummy: DWORD;
 begin
   VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
   GetMem(VerInfo, VerInfoSize);
   GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
   VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
   with VerValue^ do
   begin
     Result := IntToStr(dwFileVersionMS shr 16);
     Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
     Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
     Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
   end;
   FreeMem(VerInfo, VerInfoSize);
end;

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

...И приколется обломившийся и oбломится приколовшийся...

northener

Дата 22.1.2012, 00:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(Keeper89 @ 21.1.2012, 23:32

)

Хоть кто-то аргументирует?

Я лично такого не говорил. Более того у джедаев есть весьма много полезного и весьма грамотного. Особенно если использовать их наработки с умом. Возможно используя их библиотеку (начиная с времен RxLib и до нынешнего времени) не столько напрямую, сколько просматривая её исходный код в "учебных" целях.
Но вот использовать их компоненты для получения номера версии программы просто глупо. Ведь с помощью WinAPI реализовать получение данной информации возможно на любой версии Дельфи начиная с истоков (т.е. Д1)! И даже в Д1, где приходилось делать "лишние телодвижения" для преобразовании string в PChar и наоборот, такой код состоит из всего 9 строчек!!!

Цитата(CodeMonkey @ 21.1.2012, 16:26

)

Соглашусь в целом, но не в данном случае. Ссылок на пример получения версии программы через WinAPI во всемирной помойке - миллион и ещё маленькая тележка. И разобраться в этих примерах гораздо проще, ибо те три функции WinAPI, которые там используются достаточно нормально документированы. А вот сторонние "обёртки", как правило страдают в этом плане.

Добавлено @ 00:36

Цитата(gesper @ 22.1.2012, 00:13

)

Чем плох такой вариант

Страдает он только неграмотной работой с функциями WinAPI. Это я бы сказал "вариант новичка". Функции WinAPI в данном коде используются как процедуры. Т.е. "Авось и так сойдёт, а писать лишний код лень, да и не понятно как".

Это сообщение отредактировал(а) northener - 22.1.2012, 00:51

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

CodeMonkey

Дата 22.1.2012, 10:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата

Но вот использовать их компоненты для получения номера версии программы просто глупо

Это - не компоненты, это - объектная обёртка.

Любая нормальная книжка по правильному коду скажет нам, что объетные обёртки - это хорошо по миллиону причин, а прямое обращение к API - зло.

Цитата

Ссылок на пример получения версии программы через WinAPI во всемирной помойке - миллион и ещё маленькая тележка.

И весь этот миллион страдает от известных проблем. Что и подтверждается примером в этой теме. Нормальных примеров - пересчитать по пальцам.

Цитата

И разобраться в этих примерах гораздо проще, ибо те три функции WinAPI, которые там используются достаточно нормально документированы.

Особенно хорошо заметно по этой теме, как просто в них разобраться smile

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

CodeMonkey

Дата 22.1.2012, 10:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(Sur0vy @ 20.1.2012, 16:36

)

Определяю версию программы, используя библиотеку jedi

Посмотри пример в комплекте:
\jcl\examples\windows\fileversion\VerInfoExample.dpr

Цитата(CodeMonkey @ 22.1.2012, 11:20

)

Это - не компоненты, это - объектная обёртка.

Прошу прощения, TJvVersionInfo - действительно компонент, а объектная обёртка - это TJclFileVersionInfo.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 22.1.2012, 11:15 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

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

CodeMonkey

Дата 22.1.2012, 13:05 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Что и говорить - крайне сложно запустить .bat файл и нащёлкать Далее, Далее, Далее smile

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 22.1.2012, 15:33 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Да и нечего говорить. Ты не понял ход моей мысли. Попробуй перечитать может уловишь smile

Keeper89

Дата 22.1.2012, 16:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Akella, мне места не жалко =)
Ну а если серьезно, я понимаю о чем ты, и ясно, что ради получения версии устанавливать это вряд ли надо.
Но я пользуюсь этим пакетищем регулярно, и не только парой, поэтому для меня это нормально. К тому же там много чему есть поучиться (получению версии в том числе).

З.Ы. Хотя может я и расточительный: установлена у меня вот, например, Visual Studio целиком, а пользуюсь только C# smile

Это сообщение отредактировал(а) Keeper89 - 22.1.2012, 16:41

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

northener

Дата 23.1.2012, 01:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(CodeMonkey @ 22.1.2012, 10:20

)

Цитата
Ссылок на пример получения версии программы через WinAPI во всемирной помойке - миллион и ещё маленькая тележка.

И весь этот миллион страдает от известных проблем. Что и подтверждается примером в этой теме. Нормальных примеров - пересчитать по пальцам.

Цитата
И разобраться в этих примерах гораздо проще, ибо те три функции WinAPI, которые там используются достаточно нормально документированы.

Особенно хорошо заметно по этой теме, как просто в них разобраться smile

Вы противоречите сами себе.
Хоть какой-то ответ автору "по теме" дали только вы, Александр. И то не известно правильный ли? "Не известно" потому, что для анализа вопроса и/или ответа нужно знать компонент/обёртку. А имя им легион, этим компонентам/обёрткам созданным кем-то, когда-то. Знать их все - нереально (не сомневаюсь, что вы это понимаете). А был бы вопрос типа gesper, многим не составило бы труда указать на ошибки и на то как их исправить.

А что касается известных проблем, то тут вы передёргиваете. Естественно, что на помойке трудно найти что-то ценное. Но некие простые примеры решения простых вопросов (а вопрос определения версии уж "Ну очень простой и ну уж очень старый и его решение не менялось ни разу до сих пор и вряд ли когда-нибудь изменится!") найти там не трудно.

Это сообщение отредактировал(а) northener - 23.1.2012, 01:23

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

CodeMonkey

Дата 23.1.2012, 10:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(northener @ 23.1.2012, 02:04

)

Хоть какой-то ответ автору "по теме" дали только вы, Александр.

Ответ по теме дали Keeper89 и БелАмор.

Добавлено через 3 минуты и 8 секунд
P.S. Вообще замечу, что автору, похоже, по барабану на тему.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Akella

Дата 23.1.2012, 11:57 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Т.е. Snowy и Я типа здесь просто пофлудили? smile

Добавлено через 17 секунд
Вот она - черная неблагодарность smile

CodeMonkey

Дата 23.1.2012, 12:00 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Могу ответить твоими словами - "Ты не понял ход моей мысли. Попробуй перечитать может уловишь".

Но я добрый и поэтому подскажу, что Keeper и БелАмор указали на проблему с кодом (про это говорил northener). Все остальные не указывали на решение проблемы кода в вопросе.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

MetalFan

Дата 23.1.2012, 12:08 (ссылка)

(голосов:2)

Загрузка ...

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

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

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

Jedi... интернеты... примеры получения версии.
Зачем это все?
Есть же SysUtils.GetFileVersion, правда она только dwFileVersionMS получает, но может послужить примером кода для своей функции получения всех 64 бит значения версии...

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

There are always someone smarter than you...

CodeMonkey

Дата 23.1.2012, 15:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Вот из-за "но"-то оно и...

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

MetalFan

Дата 23.1.2012, 16:01 (ссылка)

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

Загрузка ...

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

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

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

CodeMonkey, ну так одна доп.строчка кода решает проблему "но".

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

There are always someone smarter than you...

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