1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Information ausblenden

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. Hi Leute gibt es eine Funktion in Delphi die so ähnlich ist wie die Substr Funktion in C`???

    lg stef
     
  2. msdotz

    msdotz ROM

    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