Delphi - help

No jo, ale s delphí jsem si myslel že znam alespon zaklady se školy a houby.

Fungovat to funguje ale je problem.

for i := 1 2,4,6
for i := 0 0,2,4,6

Ja potřebují 1,3,5,7

if i mod 2 <> 0 then
{tady vypisu co druhy radek}
No moc si toho nepamatas :)

No jo, už to je moooc dlouho

Ještě dotaz.
Učelem je projet řadky a vypsat do memo ty, ktere obsahují určite čislo

Když na prazdný řadek vložím toto čislo 12345, funguje to a v memo2 mam 1.
když však je někde ve větě tak ne, proč?
Třeba Pujdu dnes na pivo 12345

for i := 1 to TS.Count-1 do
  if i mod 2 <> 0 then
    begin
    s:= TS[i];
    if pos(s,'56987')>0 then showmessage('nalezeno');
    Memo2.Lines.Add(IntToStr(pos(s,'12345')));

IntToStr(pos(s,'12345'))

to ma byt ako co? Vypisujes si tam poziciu toho cisla v riadku, a ne riadok ani cislo. Inac tie hardcodded hladania su uplne divne, nechapem o co sa snazis. Najprv hladas '56987' a ked najdes tak hladas '12345' a poziciu tohoto si das do memo. To ma ako jaky vyznam?

Nechapu?
Načtený řadek do s je string.
A hledaný řetězec je take string i když to jsou čisla.

Třeba toto

for i := 1 to 60 do
  if i mod 2 <> 0 then
    begin
    s:= TS[i];
    if pos(s,'blbec')>0 then showmessage('Našel jsem!');
    Memo2.Lines.Add(IntToStr(pos(s,'blbec')));

Pokud je na řadku blbec tak to najde.
Pokud je kdo je blbec, tak už ne.

Najde to aj tak. Preco si myslis ze nenajde?

parametre toho pos mas naopak. Citaj si referencie funkcii ktore pouzivas.