Substr in Delphi

Dieses Thema im Forum "Programmieren" wurde erstellt von gordenfreeman2, 26. April 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. gordenfreeman2

    gordenfreeman2 Byte

    Registriert seit:
    28. April 2003
    Beiträge:
    96
    Hi Leute gibt es eine Funktion in Delphi die so ähnlich ist wie die Substr Funktion in C`???

    lg stef
     
  2. msdotz

    msdotz ROM

    Registriert seit:
    6. Mai 2004
    Beiträge:
    1
    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;

    //----------------------------------------------------
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen