Substr in Delphi

Hi Leute gibt es eine Funktion in Delphi die so ähnlich ist wie die Substr Funktion in C`???

lg stef

 

Versuchs mal mit foldendem Code.


// Damit VB-Programmierer nichts dazu lernen müssen :-)

//----------------------------------------------------

function RightStr(const Str: string; Size: Word): string;
//----------------------------------------------------
// Gibt Teilstring in der Laenge von Size von rechts zurück
var
len: LongInt;
begin
len := Length(str);
if Size > len then Size := len;
RightStr := Copy(Str, len - Size + 1, Size)
end {RightStr};

//----------------------------------------------------

function LeftStr(const Str: string; Size: Word): string;
//----------------------------------------------------
// Gibt Teilstring in der Laenge von Size von links zurück

begin
LeftStr := Copy(Str, 1, Size)
end {LeftStr};

//----------------------------------------------------

function MidStr(const strString: string; nBegin, nLaenge: integer): string;
//----------------------------------------------------
// Gibt Teilstring ab nBegin in der Laenge von nLaenge zurück

var
strStr: string;
begin

strStr := Copy(strString, nBegin, nLaenge);
Result := strStr;
end {MidStr};

//----------------------------------------------------

function Instr(const strSource: string; const strSubStr: string): Integer;
//----------------------------------------------------

begin
// Suche Position von Suchstring in String

Result := Pos(strSubstr, strSource);
end {InStr};

//----------------------------------------------------

function RInstr(const Str: string; const strSuche: string): Integer;
//----------------------------------------------------
var
i: integer;
l: integer;
begin
// Instr von Hinten
i := 0;
l := Length(strsuche);
for i := length(Str) downto 1 do
begin
if midStr(Str, i, l) = strSuche then
begin
Break;
end;
end;
Result := i;
end;

//----------------------------------------------------