Can anyone here code Delphi?

[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?

[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

[AvanteGuard]

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

Hey man, want me to look it over?

[i am a lurker]

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

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..?

[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#