Удаление строк

[spirit-ua]

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

spirit-ua, спасибо, а еще вопрос сюда же, вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
uploaded: tstringlist;
a,b: integer;
j:string;
begin
j:=edit1.text;
if OpenDialog1.execute then begin
uploaded := tstringlist.Create;
uploaded.LoadFromFile(OpenDialog1.FileName);
for a:=uploaded.Count-1 downto 0 do
if copy(uploaded[a],length(uploaded[a]),1) = j then begin
uploaded.delete(a);
b:=b+1;
end;
showmessage ('Удалено: '+inttostr(b));
if SaveDialog1.Execute then uploaded.SaveToFile (SAveDialog1.FileName+'.txt');
uploaded.Free;
end;
end;

Удаляет только если после указанного символа больше не чего не идет, а как еще сделать чтобы удалял строку если в ней вообще нет этого символа?

нужно удалить строку в которой нету "+" ?

[superedward]

if Pos(j,uploaded[a])=0 then begin
uploaded.delete(a);
...
end;

[UKRtortik]

spirit-ua, да

[spirit-ua]

Если я правильно понял Вы ищете совпадение с переменной J, так вот, пост superedward и есть ответ на Ваш вопрос...

Заменить

if copy(uploaded[a],length(uploaded[a]),1) = j then begin

на вот это

if Pos(j,uploaded[a])=0 then begin

P.S. "Обзывайте" переменные которые несут смысловую подсказку, а то в коде даже из 100 строк...

[UKRtortik]

нет вы не много не поняли. Мне нужна удалять строку в 2-х случаях, если заданный символ последний в строке или его вообще нет.

[doktor255]

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

Как удалить все строки из txt в которых нет символа "+" ?

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

а еще вопрос, а как определить есть ли после знака еще какие то (буквы/цифры/симолы), если нету то удалить?

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

а еще вопрос сюда же, вот код:

А у меня тоже вопрос. А этот вопросник когда нибудь закончится?

[Stilet]

if pos('+',uploaded[a]) = 0 then begin

[Serge_Bliznykov]

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

if pos('+',uploaded[a]) = 0 then begin

Виталий, посмотрите на посты #7, #8, #12, #14 в данной теме.
Автор темы очень активно меняет свои требования в ходе темы...

[Stilet]

Пусть меняет.
Я кагбэ не особо против.

[Serge_Bliznykov]

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

Пусть меняет.
Я кагбэ не особо против.

Да нет, я про другое.

Тот код, что Вы ему предложили, в теме ему уже предлагали трижды.
(я именно эти посты указал, где предлагалось if Pos('+', uploaded[a])=0 then Delete(a) )
Поэтому, рискну предположить, что и в этот раз, в четвёртый, ваш код TC не устроит..

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

Мне нужна удалять строку в 2-х случаях, если заданный символ последний в строке или его вообще нет.

p.s. я бы рискнул предположить, что нужно проверять два условия

if (Pos('+', uploaded[a])=0)
     OR (Copy(trim(uploaded[a]), Length(trim(uploaded[a])),1)='+') 
     then Delete(a);