TStrings и String

[Dima_D]

Подскажите пожалуйста как мне данные типа TStrings добавить в Memo ? и возможно ли как-то удалить все строки до строки где есть слово stop?

[Sanprof]

это до первого знака вопроса

str: Tstrings;
.....
Memo1.Lines := str;

а откуда строки удалять из объекта TStrings или из Memo???

[ZuBy]

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

Подскажите пожалуйста как мне данные типа TStrings добавить в Memo ? и возможно ли как-то удалить все строки до строки где есть слово stop?

Memo1.Lines.AddStrings(тут TStrings);

для удаления нужно юзать delete, pos

[Dima_D]

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

это до первого знака вопроса

str: Tstrings;
.....
Memo1.Lines := str;

а откуда строки удалять из объекта TStrings или из Memo???

text:=IdHTTP1.Get('site.ru');

удалять из переменной text типа string.. хотел для удобства перевести в TStrings.

[Sanprof]

как интерсно вы хотели удалить из переменной Text:String; стоки, если их там всего одна? O_o

[Stilet]

хотел для удобства перевести в TStrings.

var s:TStringList;
...
begin
 s:=TStringList.Create;
end;
...
begin
 s.Text:=IdHTTP1.Get('site.ru');
end;
...
begin
 s:=nil;
end;

В TString не получится это абстрактный класс, так что пользуйся его наследником.

[Dima_D]

while(pos('<textarea style="width:300px;height:400px;font-family:Verdana;font-size:10px">',html) > 0) and(length(html) > 0) do delete (html,1,1);

как сделать чтоб удалял и
<textarea style="width:300px;height:400px;fon t-family:Verdana;font-size:10px">