Find string

var
  i : Integer;
  s,t : String;
begin
  s := ':et:MinString:to:'; 
  i := Pos(s, 'MinString');
  t := Copy(s, i, Length(MinString));
  ShowMessage(t)
end;

Frit fra leveren

Jens b & hest

hm - er strengen kendt på forhånd så man kan søge på den eller er det kun :et: og :to: der på forhånd er kendte?

Hvi man kun ved at det står mellem andet og tredje kolon kan man gøre således:

Function HentStreng(s: string):string;
begin
  delete(s,1,1); {sletter første :}
  delete(s,1,pos(':',s); {sletter til og med andet :}
  Result := copy(s,1,pos(':',s)-1); {kopierer til tredje :}
end;

Begin
  showmessage(HentStreng(':et:MinString:to:'));
end;