delete

Prøv lige at kig i hjælpen på pos funktionen, du mangler bla. nogle \'(\' \')\', Pos() skal havde 2 parametre en SourceStreng og og den streng du vil søge efter.

Pos(\'Hej\',Memo1.Text);

/Martin

Jeg var måske lidt uklar før:

pos1a := pos(Memo2.Text,\'<!-- Nyhed1 -->\');
pos2a := pos(Memo2.Text,\'<!-- Nyhed2 -->\');
pos3a := pos(Memo2.Text,\'<!-- Nyhed3 -->\');

delete(Memo1.Text,pos3a+15,pos2a+15);

både alle posXa er integer

Memo1.Text er ændret til memo2.Text - mend er er stadig fejl

Delete tager 3 parametre en SourceStreng en startPos og en Antal, hvad er din fejl ??

At jeg ikke kan bruge en konstant variabel

Så derfor skal du gøre sådan :

Strx : String;

begin
  Strx := Memo2.Text;
  Delete(Strx,pos3a+15,pos2a+15);
  Memo2.Text := Strx;
end;

Property\'s KAN IKKE overføres som VAR parametre

martin >> når nu hans memo text er længere end 255, hvad gør du så :-)

/ZIRON

Ingen ting, Delphi har HugeStrings slået til som Default, så hvor skulle problemet ligge ??

martin >> de gange jeg har leget virker det ikke helt :-(

prøv:

var
  ja : String;
begin
  ja := \'hejhejhljfdgfhbgfhgfhgfhgfhfghfghgfhgfhhfghgfhfghglmnkjfdhkghfdkjhgkjfhgkjhdfkjghkfdhgkjhfdkgjhfdkjghfdkhgkjfdhgkjdfhgkjfdhgkdhfkgjhkfdlædmfgkjmfdlkjglkfjdglkjdflgjlkfdjglkjdflgkjdflkjgldkfjglkjdflkgjfdlkjglkdjfglkjdflkgjlkdfjglkjdflkgjdflkjglkdfjglkdfjlgkdjflkgjdflkjglkdfjlkgjfdlkgljfdgjlkdfjglkfdjglkdfjlgkjfdlgjfdlkgjlkfdjglkdfjglkjfdglkdfjgfdjklgkjdjfgkdkgdfkjglkjfdlkfgjldkfjgfdljhdskfjhdkshfkjhdksjkfdhsfkjhdsklhfkjdshfkljgshkæsjifiouhiyusdhkjfhdsgfhjgjfgskjgfjgjgdsjgfjhgfhdfkjs\';
end;

/ZIRON

Det er fordi du har slået HugeStrings fra i din compiler options, det skal du bare slå til så kører det fint, hvis vi altså snakker D3 og op efter

okay det viste jeg faktisk ikke, takker... og prøver lige om lidt...

/ZIRON

Man skal lære mens man lever *S*

ja det er jo det :-)

/ZIRON