Ładny brzuch

Mam taki problem. Musz umieci danego stringa we waciwej pozycji w memo.
'Jaki tekst' musi by umieszcony nad wyrazem </head>. Nie mog sobie z tym poradzi. przosz o pomoc.


szukasz <head>
Wklejasz przed Head

http://ohp.magres.ne...art=delphi9.php
http://ohp.magres.ne...rt=delphia4.php

Moe to Ci pomoe ;)

Szukasz funkcj Pos() cigu '</head>' w Memo1.Lines.Text i wstawiasz przed t pozycj swj tekst :)


Szukasz funkcj Pos() cigu '</head>' w Memo1.Lines.Text i wstawiasz przed t pozycj swj tekst :)



OK. Tyle wiem ale:
if Pos('</head>',Memo1.Text)>0 then
// co tu wpisa


procedure TForm1.Button1Click(Sender: TObject); var  I: Integer;  S: string; begin  S := Memo1.Text;  I := Pos('</head>', S);  if I > 0 then Insert('jakis tekst', S, I);  Memo1.Text := S; end; ;)

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •