Bestimmten Teil aus dem Quelltext auslesen

[DeddyH]

Kleiner Verbesserungsvorschlag für die Funktion:

Delphi-Quellcode:

function GetTxt(const s1,s2,txt:String):String;
var iPos: integer;
begin
  Result := txt;
  iPos := Pos(s1,Result);
  if iPos > 0 then
    Delete(Result,iPos,Length(s1));
  iPos := Pos(s2,Result);
  if iPos > 0 then
    Delete(Result,iPos,Length(s2));
end;