1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function StrBetween(const Target: String; const Start, Stop: String): String;
var buf: String;
    Startpos, Endpos: Integer;
 i: Integer;
begin
Startpos := (Pos(Start, Target)+ (length(Start)-1));
buf := Copy(Target, Startpos,length(Target));
Endpos := Pos(Stop, buf);

  if (Startpos > 0) and (Endpos > Startpos) then
begin
   Result := Copy(Target, Startpos,Endpos);

   if Result = '' then Result := 'keine Angaben';
   showmessage('StrBetween: '+Start+' - '+ Stop+' - '+Copy(Target, Startpos + 1, i - 1));
end
else Result := 'keine Angaben';
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure ExtractIncludesFromString(Str:String); 
var Str2:String; 
begin 
  //Solange Zeile bearbeiten bis keine Vorkommen mehr von Include vorhanden sind 
  while Pos('Include("',Str)>0 do 
  begin 
    //Alles bis zum Include löschen 
    Delete(Str,1,Pos('Include("',Str)-1); 
    //Exception, wenn Include nicht geschlossen 
    if Pos('");',Str)=0 then 
      raise Exception.Create('Syntaxfehler in Zeile "'+Str+'"'); 
    //Include-Inhalt in Str2 kopieren 
    Str2:=Copy(Str,Pos('("',Str)+2,Pos('");',Str)-Pos('("',Str)-2); 
    //Ausgabe 
    ShowMessage(Str2); 
    //aus Str löschen 
    Delete(Str,1,Pos('");',Str)+3); 
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:

var a:integer;
      b:string;
begin
 b:='';
 for a:=1 to length(Text) do if Text[a] in ['0'..'9'] then b:=b+Text[a];
 Result:=StrToInt(b);
end;					

1:
2:
3:
4:
5:
6:
7:

var a:integer;
      b:string;
begin
 b:='';
 for a:=1 to length(Text) do if not (Text[a] in ['0'..'9']) then b:=b+Text[a];
 Result:=b;
end;