Trax

not the most popular language i know

but i have something i would like an experienced programmer to overlook

59* 101_924 is my ICQ

Thanks

grumpy

I can. What do you need?

__________________
Don't let greediness blur your vision | You gotta let some shit slide
icq - 441-456-888

Trax

mind msging me?
i have a problem with POS & COPY

Thanks

Ash@phpFX

damn, not since delphi 3
i feel fucking old (and im only 19)

i havent needed it in a long time, ive only done web based stuff lately.

delphi rocks

Trax

i wouldnt say it rocks but

Trax

still seeking help
you will not regret it
thats for sure

Trax

Thomas1007

Please contact Us
mxdevelopment

__________________

Trax

my icq is above!

Thomas1007

Icq sent

__________________

Trax

thanks
but keep it coming guys
i never forget a person who helped me with something

init

post the whole problem here

__________________
icq: 2721653

AvanteGuard

Hey man, want me to look it over?

__________________
Looking for Fast Professional Programming? http://www.imadigan.com
ICQ: 314-942-262 | MSN/Email: [email protected]

i am a lurker

so you want it done for free? cheap ******

__________________

Trax

Of course i can post it here


here we go:

procedure TForm1.FormCreate(Sender: TObject);
var temp :string;
begin
AssignFile(Txt, 'a.txt');
Reset(Txt);
Memo1.Lines.Clear;
Memo2.Lines.Clear;
While not EOF(txt) do begin ReadLn(txt, temp); Memo1.Lines.Add(temp); end;
CloseFile(Txt);
end;

procedure TForm1.SearchButtonClick(Sender: TObject);
var
temp :string;
such :string;
result :array[0..100] of string;
i, j, anf, lang: integer;
begin
such:=edit1.Text;
Reset(Txt);
i:=0;
j:=0;
While not EOF(txt) do
begin
ReadLN(Txt, temp);
total:=length(such);
beg:=pos(such, temp);
if anf <> 0 then
begin
result[i]:=copy(temp, beg, total);
memo2.lines.add('Found in line '+inttostr(j)+' the result '+result[i]);
inc(i);
end;
inc(j);
end;
end;
end.


no the problem

lets say the text file looks like this:

"1 2 3 4 5 1 2 3
oaewrhgoawehg owehg

wioehgweg 1woeihgwoeihgw"

and i search for "1" it only displays that its found in line 1 and in line 3
however i want it to find the other 1's in line1 as well
but i am not able to work with that
somebody told me something about posEx but i am not able to work with that and it has to be done with POS and COPY

i am freshing up my delphi knowledge a bit and am stuck here
my programmers told me delphi is a joke and that noone still codes with it - well ... i learnt it in school so hehe

init

just by looking it over, it seems that after 1 is found it automatically increases j, so even if there is a second one on the same line, j will be increased and possibly give you the wrong line its on..?

__________________
icq: 2721653

fuzebox

Heh... I actually do know a guy who's a Delphi expert... I always make fun of him, this time he may actually be useful for something

ICQ him at 145213011, tell him I gave you his UIN so he doesn't freak out.

Trax

thanks to both- init for the tip and fuzebox for the icq#