VPF::need help with If (offset <1> length(s)) Then - Форум программистов

muratboy31

Дата 20.2.2010, 23:20 (ссылка)

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

Загрузка ...

Бывалый

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

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

i am not sure why i get that error !!! it says undeclared identifier offset

Код


Function TForm1.PosEx(Const SubStr, S : AnsiString; Offset : Cardinal) : Integer;
Var
    i : PChar;
Begin
    If (offset <1> length(s)) Then
    Begin
        Result := 0;
        Exit
    End;

    i := StrPos(@s[offset],@substr[1]);
    If i = Nil Then
        PosEx := 0
    Else
        PosEx := Succ(i-PChar(s));
End;

Это сообщение отредактировал(а) muratboy31 - 20.2.2010, 23:44

Proxin

Дата 21.2.2010, 07:16 (ссылка)

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

Загрузка ...

Опытный

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

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

ur doing it wrong again. posex is the standard delphi function, which is declared in strutils, so u dont need to implement it.

muratboy31

Дата 21.2.2010, 10:28 (ссылка)

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

Загрузка ...

Бывалый

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

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

ok but why i get error in that line then ?
i attached the project file also...
maybe you will understand why i get error !!!

Это сообщение отредактировал(а) muratboy31 - 24.2.2010, 15:25

Proxin

Дата 24.2.2010, 01:53 (ссылка)

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

Загрузка ...

Опытный

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

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

here the corrected variant.
delphi7 is used.

Это сообщение отредактировал(а) Proxin - 24.2.2010, 01:53

Присоединённый файл ( Кол-во скачиваний: 4 )

help.zip 673,31 Kb

muratboy31

Дата 24.2.2010, 15:13 (ссылка)

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

Загрузка ...

Бывалый

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

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

thanks proxin
i have a question;
did u try it ? beacuse it didnt get the translated text ... and i changed some lines but it still didnt work...

i changed that:

Код


Const
    cLanguagePairList : Array[0..17] Of AnsiString =('en|fr' );



SendTxt := 'http://translate.google.com.tr/#' +
                       cLanguagePairList[ALanguagePair]+
                       HTTPEncode(ATextIn);

Proxin

Дата 24.2.2010, 22:25 (ссылка)

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

Загрузка ...

Опытный

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

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

ive just corrected syntax errors.

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