Проблема с обработкой хтмл

[gufon]

Delete(Memo1.Lines.Text, pos('<td class="wforecast-cell">',Memo1.Lines.Text)+27, pos('&deg;C</td>',Memo1.Lines.Text)-26-pos('<td class="wforecast-cell">',Memo1.Lines.Text));

ругается на это строку, вот так

[Error] Unit1.pas(53): Constant object cannot be passed as var parameter

[Serge_Bliznykov]

правильно ругается, ведь в Delete первым параметром идёт var S : string, а Memo1.Lines.Text не является строкой (это свойство объекта).

обойти легко через переменную:

var s : string;

...

  s := Memo1.Lines.Text;
  Delete(s,
      pos('<td class="wforecast-cell">',Memo1.Lines.Text)+27,
      pos('&deg;C</td>',Memo1.Lines.Text)-26-pos('<td class="wforecast-cell">',Memo1.Lines.Text));
  Memo1.Lines.Text := s;

p.s. ну и я бы проверку добавил на то, что позиции '<td class="wforecast-cell">' и '&deg;C</td>' имеются в строке (т.е. Pos вернёт число отличное от нуля)...
впрочем, сие не особо критично. Просто красивее и надежнее...

[Человек_Борща]

Memo1.Lines.Text не является строкой

ЧТО?

Lines не является строкой. А Text является... потому что:
TMemo.Text:TCaption;
type TCaption = type string;

неа, у delete кол-во удаляемых знаков это константа....
алналогично с функцией Copy.. по этому я нашёл для себя такое решение:

function delete1(s:string; Start,Count:integer):string;
var
   ts:string;
   tc:integer;
begin
ts:=s;
tc:=count;
Delete(ts,Start,tc);
Result:=ts;
end;

и использую её для удаления в циклах For to do и там где ругается на неё.

[Serge_Bliznykov]

Сообщение от Человек_Борща

неа, у delete кол-во удаляемых знаков это константа....

Э.. это Вы об чём?...
я хотел сказать, что код:

  Delete(Memo1.Lines.Text, 1,3);

не откомпилируется именно из-за того, что Memo1.Lines.Text нельзя передать как VAR параметр!
точно так же не откомпилируется код

  Delete(Memo1.Text, 1,3);

по той же самой причине!

кстати, Вам такая запись из исходников VCL

    property Text: TCaption read GetText write SetText;

о чём нибудь говорит?




p.s. а предложенное вами решение тоже использует дополнительную строку ( ts:string) куда присваивается исходная - т.е. по сути просто обёртка для того способа, который я и предложил.

[gufon]

написал так

Delete(text, pos('<td class="wforecast-cell">',text)+27, pos('&deg;C</td>',text)-26-pos('<td class="wforecast-cell">',text));

тоже самое

[evg_m]

А что это здесь такоеText?
Delete(text, '<....

Должна быть
ПЕРЕМЕННАЯ (var) и НИЧТО другое. Внимательнее смотрите пример Сергея.

[gufon]

все это есть

[Serge_Bliznykov]

все это есть

сомневаюсь!

вместо Text используйте нормальную переменную.
Например, S или sHTML или AllHTMLText

и проблем не будет!

или давайте Ваш исходный чудо-код!

[gufon]

Сообщение от Serge_Bliznykov

сомневаюсь!

procedure TForm1.Button1Click(Sender: TObject);
var  i,b,k: integer; tetx: string;
begin

For i:= 0 to 0 do
Begin
Memo2.Lines.Text:=utf8toansi(IdHTTP1.Get('http://www.meteoprog.ua/ru/weather/Yenakievo/'));
Memo1.Lines.Text:=copy(Memo2.Lines.Text, pos('<td width="84" align=right style="padding: 5px 10px 5px 0px;">Темп. возд.</td>', Memo2.Lines.Text), pos('</table><!-- end weather information -->    </td>',Memo2.Lines.Text)-pos('<td width="84" align=right style="padding: 5px 10px 5px 0px;">Темп. возд.</td>', Memo2.Lines.Text));
for b:=0 to 3 do
text:=  Memo2.Lines.Text;
pog1.Caption:= copy(Memo1.Lines.Text, pos('<td class="wforecast-cell">',Memo1.Lines.Text)+27, pos('&deg;C</td>',Memo1.Lines.Text)-26-pos('<td class="wforecast-cell">',Memo1.Lines.Text));
Delete(text,
pos('<td class="wforecast-cell">',text)+27,
pos('&deg;C</td>',text)-26-pos('<td class="wforecast-cell">',text));
Begin
end;
end;
end;

end.

[evg_m]

Смотри ВНИМАТЕЛЬНО (по буквам)

var  i,b,k: integer; tetx: string;

text:=  Memo2.Lines.Text;
Delete(text,