Řetězce v Delphi - poradna.net

Zdravím.
Poradte jak na to, kde dělam kopanec.
Mam text soubor, kde jsou pod sebou stovky IP adres.
Potřebuj najit tu co zadam do editu.

for i:=0 to Lines.Count-1 do
begin
    if pos(form2.edit1.text,Lines[i])>0 then Form2.Zapis;
end;

Problem je že když zadam třeba 97.11.44.1 tak mi to vypiše i 97.11.44.171,97.11.44.171,97.11.44.172 atd

Tak jsem to zkusil takto

for i:=0 to Lines.Count-1 do
begin
    if pos(form2.edit1.text,Lines[i])>0 then
    begin
        a:=length(form2.edit1.text)+1;
        znak := copy(a2,a,1);
        if znak <> '' then continue;
        Form2.Zapis;
    end;
end;

Nějak to nefunguje.
I když proměnna znak je 1 až 9 tak if znak <> '' then continue; nereaguje.
Proč.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
for i:=0 to Lines.Count-1 do begin if form2.edit1.text = Lines[i] then Form2.Zapis; end; Wikan 16.08.2012 07:38	Wikan	16.08.2012 07:38
To asi nepujde. Na tom řadku neni jen ta IP. Je to soubor s linuxoveho servru a žadky vypadaj takto… Leo11 16.08.2012 08:11	Leo11	16.08.2012 08:11
Že by SubString od začátku řetězce do první mezery :-) krok 16.08.2012 08:21	krok	16.08.2012 08:21
Presne tak. for i:=0 to Lines.Count-1 do begin if form2.edit1.text = Copy(Lines[i], 1, Pos(' ', Lin… Jan Fiala 16.08.2012 10:40	Jan Fiala	16.08.2012 10:40
Tak ani toto mi nefungovalo. Když to otevřu v PsPadu tak to vypada tak jak jsem psal. Když to však k… Leo11 18.08.2012 08:10	Leo11	18.08.2012 08:10
Tam neni mezera ale #9 bude asi tabulator. Poradite jak na to. To si opravdu neděláš srandu? Je opr… poslední Jan Fiala 18.08.2012 14:08	Jan Fiala	18.08.2012 14:08

for i:=0 to Lines.Count-1 do
begin
if form2.edit1.text = Lines[i] then Form2.Zapis;
end;

To asi nepujde.
Na tom řadku neni jen ta IP.
Je to soubor s linuxoveho servru a žadky vypadaj takto

97.11.44.1 vasicek #wifi-plus-64-20480

Že by SubString od začátku řetězce do první mezery

Presne tak.

for i:=0 to Lines.Count-1 do
begin
  if form2.edit1.text = Copy(Lines[i], 1, Pos(' ', Lines[i])-1) then 
    Form2.Zapis;
end;

Tak ani toto mi nefungovalo.
Když to otevřu v PsPadu tak to vypada tak jak jsem psal.
Když to však krokují v delphi tak to vypada takto.
Tam neni mezera ale #9 bude asi tabulator.
'91.32.11.23'#9'karel'#9'#wifi-normal-64-12000'
Poradite jak na to.

Tam neni mezera ale #9 bude asi tabulator. Poradite jak na to.

To si opravdu neděláš srandu? Je opravdu tak velký problém si přečíst 2 řádky kódu a nahradit ve funkci mezerník za znak tabulátoru?
Nezlob se, ale u programován se musí aspoň maličko přemýšlet a ne jen lepit kousky kódu, které někde najdeš.

Zpět do poradny Odpovědět na původní otázku Nahoru