[Delphi] памогите с функцией |
07.04.2010, 23:56
|
|
Познающий
Регистрация: 11.11.2008
Сообщений: 72
С нами:
9208607
Репутация:
0
|
|
[Delphi] памогите с функцией
Вот функция:
PHP код:
function TForm1.Parsing(text:String): string;
var
i:integer;
Sk: TStringList;
NewMsg,name:string;
New:TStringList;
begin
sk:= TStringList.Create;
sk.Text:=text;
For I := 0 To sk.Count -1 do
begin
If Pos('id="homelink"', sk[I]) <> 0 Then
begin
id := sk[I];
id := Copy(id, Pos('href="', id), Length(id));
Delete(id, Pos('">', id),Length(id));
id := Copy(id, Pos('id', id), Length(id));
Delete(id, 1,2);
end;
end;
For I := 0 To sk.Count -1 do
begin
If Pos('<div class="shah">', sk[I]) <> 0 Then
begin
name := sk[I];
name := Copy(name, Pos('">', name), Length(name));
delete(name,Pos('<', name), Length(name));
delete(name, 1, 2);
end;
end;
For I := 0 To sk.Count -1 do
begin
If Pos('<a href="/mail.php?id=', sk[I]) <> 0 Then
begin
mesage := sk[I];
mesage := Copy(mesage, Pos('<a href="/mail.php?id=', mesage), 100);
if Pos('</b>', mesage) <>0 then
begin
delete(mesage, Pos('</b>', mesage),Length(mesage));
delete(mesage, Pos('<a href=', mesage),pos('(<b>',mesage));
delete(mesage, 1,3);
end
else
mesage:='нет';
end;
end;
if strtoint(id) <>0 then
begin
label3.Caption:='У вас '+mesage+' новых сообщений.';
Label1.Caption:='Здраствуйте '+name;
Label2.Caption:='Ваш ИД: '+id;
NewMsg:=name+', у вас '+mesage+' новых сообщений';
memo1.lines.add(NewMsg);
end
else
begin
NewMsg:='Вы не авторизованы!';
memo1.lines.add(NewMsg);
new.Free;
sk.Free;
end;
Она выдаёт ошибку когда её вызываеш опять другой кнопкой
Код HTML:
projekt raised exception class EAccess Violation with message:" Access violation at address 00000020.Read of address 00000020",Progres stopped ...
И ещё вапрос,как сделать чтоб приложение ело меньше опиротивы?? |
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
[Delphi] Indy10.5.5 Авторизация ВК
|
cel |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
5 |
18.02.2010 13:12 |
|
Нужен ФлешПлеер с функцией стриминга
|
spamerr |
PHP |
0 |
31.12.2009 01:55 |
|
[Delphi] Генератор мусора
|
ex3me |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
9 |
01.08.2009 23:52 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Древовидный вид