TMemo не работает УДИЛИТЬ СТРОКУ

[Yuran]

Не работает

while pos('Product code: ',Memo.Lines.Strings[0])=0 do
// если в первой строке нет искомого
begin
// то удаляем первую строку
Memo.Lines.Delete(0); //тут зависает
end;

хотя memo.lines.count >65042

И почему Memo.Lines.Strings[0]=перваяБукваТекста

Перетренировался и застрял. помогите!

[D-mon]

while pos('Product code: ',Memo.Lines[0])=0 do
// если в первой строке нет искомого
begin
// то удаляем первую строку
Memo.Lines.Delete(0); //тут зависает
if(Memo1.Lines.Count=0)then Exit;
end;

И почему Memo.Lines.Strings[0]=перваяБукваТекста

Так захотелось разработчикам компонента

[Stilet]

тут зависает

Это что-то несуразно ты написал. Задача в чем?
Может лучше while pos('Product code: ',Memo.Lines[0])=0 do

[puporev]

while pos('Product code: ',Memo.Lines.Strings[0])=0 do

Что-то не видал, чтоб так писали. Если нужно выполнить условие, то пишут
if pos('Product code: ',Memo.Lines.Strings[0])=0 then

[D-mon]

puporev Что-то не видал, чтоб так писали. Если нужно выполнить условие, то пишут
if pos('Product code: ',Memo.Lines.Strings[0])=0 then

почему это??? Всё правильно он написал. Он удаляет все строки пока не встретиться 'Product code: '...

Твоя конструкцыя удалит только первую строку если она не 'Product code: ', а его конструкция удалит все строки до 'Product code: ', даже если 'Product code: ' будет где то посередине текста.

[D-mon]

то что ты puporev не увидел здесь ошибку
while pos('Product code: ',Memo.Lines.Strings[0])=0 do, а надо while pos('Product code: ',Memo.Lines[0])=0 do

это плохо

[puporev]

while pos('Product code: ',Memo.Lines.Strings[0])=0 do
// если в первой строке нет искомого
begin
// то удаляем первую строку

Я читаю то что написано, а не додумываю за автора.

[D-mon]

Ну так вот и читай чтотам while, а не if... И ненадо говорить что такого нет, если ты не разобрался в тексте.

[puporev]

По-моему мы с Вами на брудершафт не пили, а потому не надо тыкать и учи свою маму.

[D-mon]

За "ты" извиняюсь, а в остальном Вы неправы