Проверьте проект

Favorskij

Здравствуйте. Заказал одни проект. Проект был написан на Delphi. Сейчас не могу его скомпилировать из исходного материала. Подкрадывается мысль, что меня лохонули.Проверьте пожалуйста, вот исходной материал Delphi http://rghost.ru/52054251 говорят что был написан на версии xe3
14 ответов

Favorskij

В делфи 7 не хватает функций:ReplaceStr ParseAfter' ParseBetween' ParseBefore' 'ParseLastAfter'Вроде вот одну нашел:
function ReplaceStr(const AText, AFromText, AToText: string): string;
{Г§Г*ìåГ*Г* ïîäñòðîêè Гў ñòðîêå}
var
  I: Integer;
  Source: string;
begin
  Source := AText;
  Result := '';
  repeat
    I := Pos(AFromText, Source);
    if I >
    0 then
    begin
      Result := Result + Copy(Source, 1, I - 1) + AToText;
      Source := Copy(Source, I + Length(AFromText), MaxInt);
    end
    else
      Result := Result + Source;
  until I<= 0;
end;
Вроде проект рабочий, но надо попробовать в версии старше чем у меня


Favorskij

Не хватает ParseLib.pas. Написано было, скорее всего, на Дельфи7, потом малость правилось на ХЕ3 или просто пересохранялось.ReplaceStr в StrUtils описана.


Favorskij

В делфи 7 не хватает функций:ReplaceStr ParseAfter' ParseBetween' ParseBefore' 'ParseLastAfter'Вроде вот одну нашел:
function ReplaceStr(const AText, AFromText, AToText: string): string;
{Г§Г*ìåГ*Г* ïîäñòðîêè Гў ñòðîêå}
var
  I: Integer;
  Source: string;
begin
  Source := AText;
  Result := '';
  repeat
    I := Pos(AFromText, Source);
    if I >
    0 then
    begin
      Result := Result + Copy(Source, 1, I - 1) + AToText;
      Source := Copy(Source, I + Length(AFromText), MaxInt);
    end
    else
      Result := Result + Source;
  until I<= 0;
end;
Вроде проект рабочий, но надо попробовать в версии старше чем у меня
А может ли быть это из за того что нет еще каких то библиотек. Он сказал что у него стоит ещё куча каких то библиотек. Или он жульничает?
Не хватает ParseLib.pas. Написано было, скорее всего, на Дельфи7, потом малость правилось на ХЕ3 или просто пересохранялось.ReplaceStr в StrUtils описана.
А может ли быть это из за того что нет еще каких то библиотек. Он сказал что у него стоит ещё куча каких то библиотек. Или он жульничает?


Favorskij

ReplaceStr в StrUtils описана.
Не знаю, при добавлении в uses все равно выдает ошибку


Favorskij

Не хватает ParseLib.pas. Из какой он библиотеки - ХЗ. Похож на самописный. В любом случае исполнитель дожет либо предоставить его, либо объяснить где взять.
Не знаю, при добавлении в uses все равно выдает ошибку
На ХЕ3 не выдает. В исходниках все сводится к банальному:
StringReplace(AText, AFromText, AToText, [rfReplaceAll]);


Favorskij

FIL, я думал мы про 7 версию говорим В файле Strutils.pas функции ReplaceStr нет, имеется ansiReplaceStr


Favorskij

Короче я понял, он развел. Он изначально не хотел отдавать исходной материал.


Favorskij

В файле Strutils.pas функции ReplaceStr нет, имеется ansiReplaceStr
Ну а Embarcadero взяли и добавили:
function ReplaceStr(const AText, AFromText, AToText: string): string;
begin
  Result := AnsiReplaceStr(AText, AFromText, AToText);
end;
получилась очередная версия Дельфи


Favorskij

Спасибо вам все ребята.


Favorskij

Короче я понял, он развел. Он изначально не хотел отдавать исходной материал.
Так что, он отказывается скинуть этот файл? Впринципе там все просто - идет поиск нужного куска текста, надо только понимать какого.


Favorskij

Ну а Embarcadero взяли и добавили:
function ReplaceStr(const AText, AFromText, AToText: string): string;
begin
  Result := AnsiReplaceStr(AText, AFromText, AToText);
end;
получилась очередная версия Дельфи
Скажите пожалуйста, а как подключить в амбекодеро библиотеку ParseLib.dcu ?
Так что, он отказывается скинуть этот файл? Впринципе там все просто - идет поиск нужного куска текста, надо только понимать какого.
Что то скинул http://rghost.ru/52056577


Favorskij

Немного подправил - теперь по крайней мере компилируется. Проверяй:


Favorskij

Немного подправил - теперь по крайней мере компилируется. Проверяй:
А в какой версии и в чем. Просто у меня амбекодера Delphi XE5Если вам не трудно. Скинте мне пожалуйста скомпелированный.


Favorskij

Favorskij, в архиве лежит скомпилированный файл