Extracte en del af en string

Den her skulle virke *hvis* der aktid er nogle tags:

function extract(s : string) : string;

var
  ix1,ix2 : integer;

begin
  ix1 := 1;
  while (s[ix1] <> '>') or (s[ix1+1] = '<') do ix1 := ix1 + 1;
  ix2 := length(s);
  while (s[ix2] <> '<') or (s[ix2-1] = '>') do ix2 := ix2 - 1;
  extract := copy(s, ix1 + 1, ix2 - ix1 - 1);
end;

virker... næsten ;) Mangler lige at fjerne det kolon.
Jeg vil tro at det er noget med at lave en left(string, length(string)-1) - men ved ikke hvad "left" funktionen hedder i Delphi :(

Smider du et svar samtidig please?

Tak

Bare træk en mere fra i længden:

extract := copy(s, ix1 + 1, ix2 - ix1 - 2);

svar

perfekt, det virker :)
Jeg må slå op et eller andet sted hvordan copy-funktionen virker :p

tak for hjælpen! Jeg vender sikker frygtelig tilbage ;)

copy virker ligesom Mid i VB

ahh, ok :)
SÅ er det jo dejligt nemt at arbejde med!
Tak.