Авторизация на сайте

[BDA]

Переменные нужно объявлять, а не просто писать в коде

[rosljk]

А спасибо я понял


можете мне подсказать код на Последний вход должен быть таким????

tmp := utf8toansi(strpage);
    if pos('<li class="title">Последний вход</li>', tmp) <> 0 then
    begin
      tmp := copy(tmp, pos('<<li class="title">Последний вход</li>', tmp) + length('<li class="title">Последний вход</li>'), length(tmp) - pos('<li class="title">Последний вход</li>', tmp) - length('<li class="title">Последний вход</li>'));
      tmp := copy(tmp, pos('<li>', tmp) + length('<li>'), length(tmp) - pos('<li>', tmp) - length('<li>'));
      __Что_НУЖНО_ВСТАВИТЬ?? := copy(tmp, 29, 10);
    end;

И пожалуйста подскажыте как мне узнать __Что_НУЖНО_ВСТАВИТЬ?? из кода СТРАНИЦЫ???

[BDA]

Код последнего входа:

 tmp := utf8toansi(strpage);
tmp := copy(tmp, pos('<li class="title">Последний вход</li>', tmp) + length('<li class="title">Последний вход</li>'), length(tmp) - pos('<li class="title">Последний вход</li>', tmp) - length('<li class="title">Последний вход</li>'));
tmp := copy(tmp, pos('<li>', tmp) + length('<li>'), length(tmp) - pos('<li>', tmp) - length('<li>'));
lastlogin := copy(tmp, 1, pos('</li>', tmp) - 1);

У вас опять же почти правильно, только лишний "<" в первой строчке и нужно по-другому задать последнее копирование.
Проверять на существование этого пункта не нужно, так как он, в отличие от дня рождения, есть всегда.
__Что_НУЖНО_ВСТАВИТЬ?? - вы объявляете СВОЮ переменную в среде разработки. Эта переменная НИКАК не связана с кодом (html) страницы с сайта.

[rosljk]

Тоисьть вместо l a s t l o g i n можно написать любую переменую?

[BDA]

Любую, но она должна быть объявлена.

[rosljk]

Объясните мне эту строчку

    if birthdate <> '' then
      form2.Label4.Caption := 'День рождения: ' + Birthdate
    else
      form2.Label4.Caption := '';

можнош было написать проще

form2.Label4.Caption := 'День рождения: ' + Birthdate

[BDA]

Это сделано для того, чтобы не было просто надписи "День рождения" без самой даты. Правда, если на странице еще будет надпись Birthday, то возможны ошибки. Восстановите мой аккаунт (это ведь ваш сайт? ), а то я его удалил, чтобы пересоздать без даты рождения (введенные данные профиля нельзя просто удалить) и проверить, как сработает программа на аккаунте без даты рождения, но система не дает использовать старые почту и логин.

[rosljk]

Я Вас вроди востановил,у меня профиль без даты рождения И НЕТУ НИКАКИХ ОШЫБОК

[=master=]

Эта эпопея когда-нибудь достигнет апогея? просто инетерсно.

[BDA]

rosljk, ошибок не будет, будет просто некрасиво выглядеть.
=master=, да, как только будет написана "программа моей мечты"