Lazarus -StringList

Áno, zmazaním riadku sa Ti zakaždým mení index...
Prechádzaj od konca na začiatok, nie od začiatku po koniec ako to robíš Ty...

for i := TS.Count - 1 downto 0 do
begin
...

Dik, ja chtěl na to jít takto, ale někde mam kopanec a nefunguje to.

  i1 := 0;
  i:=TS.Count-1;
  while (i1=i) do
    begin
       s:= TS.Strings[i1];
       IF pos('ahoj',s) <> 0 then
                                begin
                                 TS.Delete(i1);
                                 i:=TS.Count-1;
                                 showmessage('je to tam');
                                end;
        Memo2.Lines.Add (s);
       Inc(i1);
    end;

To bude tím, že ten while by prošel jenom v případě, že by na začátku byl v listu přesně jeden prvek.

A přes repeat?

Problém není v tom, že tam máš while. Ale jeho podmínce.

Na začatku je i1 := 0;
TS.Count-1 je třeba 300
while (i1=i) do
přikaz while se bude provadět tak dlouho, až i1 bude 300.
Ne?

Bude se provádět tak dlouho, dokud se ty hodnoty budou rovnat. A jak vidíš, tak už na začátku se nerovnají.

Ne. Přelož si While jako "pokud" a budeš mít jasno:

"Pokud (i1=i), vykonej příkazy"

To myslím není přesné. Správně by mělo být "dokud". V tom je rozdíl.

Pokud by bylo synonymum pro příkaz IF.

Dik, funguje.
PS: už to mam pořadně prochlastane a nefunguje to jak ma

Do cyklu přidejte podmínku

if i>= TS.count then break;

tím vyskočíte z cyklu pokud se dostanete mimo seznam nebo cokoliv číslovaného (řešil jsem to třeba pro stringgrid nebo listbox).

Mnohokrát jsem to takto vyřešil.

Je to takové nesystémové řešení. Lepší by bylo použít cyklus while a testovat v každém cyklu, jestli nejsme už mimo

ind := 0;
while ind<TS.count do begin
   ....
   inc(ind);
end;

ale na tuhle chybu většinou nemyslím a přijdu na ni až dodatečně a to se mi nechce přepisovat.

Mimochodem poslední roky nerad používám i a j jako iterační proměnné, v lazarusu je to jedno, ale v Matlabu jsou i a j komplexní jednotka a pak je docela zajímavé, když ji mám takto překrytou, hledat, proř nějaký výpočet v komplexních číslech nefunguje. A ještě zajímavější je to naopak, pokud se pokusím indexovat nějaké pole komplexní jednotkou (chyba index must be real positive number mě ale dost rychle přivede na stopu) prostě ze zvyku napíšu pole(i) i když ta proměnná se jmenuje třeba ind jako index.

Myšlenka kontroly jestli nejsem mimo (též by šla dělat konstrukcí try....except) je sice dobrá, ale když se vymaže prvek a všechny ostatní se tímpádem šoupnou vlevo, některou položku takto vynecháš z testování.

Musíš si uvědomit, že když vymažeš položku ze StringListu, změní jednak StringList.Count a též hodnoty všech indexů, co následují po vymazané položce. Tudíž procházet od konce je jediné možné řešení, páč tě pak už nezajímá změněný počet položek ani indexy co se mění za zmizelým prvkem.

Nepochopim, jak nekdo misto 2 radkoveho reseni - cyklus od konce dokaze travit cas vymyslenim stranky nefunkcniho kodu.

Když to potřebují i třidit a vypisovat do vice memo, tak nic jineho nezbyva.

Nerozumim. Ty to soucasne mazes, tridis a posilas nekam?
Pak to nemusis mazat. Staci, kdyz to cele projdes a posles ven jen to protridene.
A na druhou stranu je uplne jedno, jestli to projdes for cyklem nebo nejakym tebou rizenym while cyklem. I v tom gpr cyklu to muzes filtrovat a posilat do kolika memo chces.