Right$, left$, mid$, split, trim$,... en delphi

Soyez le premier à donner votre avis sur cette source.

Vue 8 487 fois - Téléchargée 374 fois

Description

Voci une unit qui regroupe pas mal de fonctions de manipulation de String,...
fonctions portant le même "nom" que sous vb,...

Source / Exemple :


unit FctsStr;

    interface
    uses
    Windows,Messages, SysUtils, Classes, Graphics,StdCtrls;
    function RightTrim(const s:String):String;
    function LeftTrim(const s:String):String;
    function InStr(Start: integer; Source: string; SourceToFind: string): integer;
    function Mid(Source: string; Start: integer; Length: integer): string;
    function Left(Source: string; Length: integer): string;
    function Right(Source: string; Lengths: integer): string;
    function Replace(sData: String; sSubstring: String; sNewsubstring: string): String;
    function Split(Source, Deli: string; StringList: TStringList): TStringList;
    function Reverse(Line: string): string;

    implementation
    function Reverse(Line: string): string;
    var i: integer;
    var a: string;
    begin
    For i := 1 To Length(Line) do
    begin
    a := Right(Line, i);
    Result := Result + Left(a, 1);
    end;
    end;
    function Split(Source, Deli: string; StringList: TStringList): TStringList;
    var
    EndOfCurrentString: byte;
    begin
    repeat
    EndOfCurrentString := Pos(Deli, Source);
    if EndOfCurrentString = 0 then
    StringList.add(Source)
    else
    StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
    Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
    until EndOfCurrentString = 0;
    result := StringList;
    end;
    function Replace(sData: String; sSubstring: String; sNewsubstring: string): String;
    var
    i: integer;
    lSub: Longint;
    lData: Longint;
    begin
    i := 1;
    lSub := Length(sSubstring);
    lData := Length(sData);
    repeat
    begin
    i := InStr(i, sData, sSubstring);
    If i = 0 Then
    begin
    sNewSubString := sData;
    Exit
    end
    Else
    sData := Copy(sData, 1, i - 1) + sNewsubstring + Copy(sData, i + lSub, lData);
    i := i + lSub;
    End;
    Until i > lData;
    Replace := sData;
    end;
    function Left(Source: string; Length: integer): string;
    begin
    Result := copy(Source,1,Length);
    end;
    function Right(Source: string; Lengths: integer): string;
    begin
    Result := copy(source,Length(Source) - Lengths+1,Lengths+1);
    end;
    function Mid(Source: string; Start: integer; Length: integer): string;
    begin
    Result := copy(Source,Start,Length);
    end;
    function InStr(Start: integer; Source: string; SourceToFind: string): integer;
    begin
    Result := pos(SourceToFind,copy(Source,Start,Length(Source) - (Start - 1)));
    end;
    function RightTrim(const s:String):String;
    var
    i:integer;
    begin
    i:=length(s);
    while (i>0) and (s[i]<=#32) do
    Dec(i);
    result:=Copy(s,1,i);
    end;
    function LeftTrim(const s:String):String;
    var
    i, L:integer;
    begin
    L:=length(s);
    i:=1;
    while (i<=L) and (s[i]<=#32) do
    Inc(i);
    result:=Copy(s,i, MaxInt);
    end;

end.

Conclusion :


Ce code n'est pas de moi, mais il peut servir ;-)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

retaks666
Messages postés
286
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
16 juillet 2007
-
ça marche pas chez moi split, j'ai corrigé de la sorte:
function Split(Source, Deli: string): TStringlist;
var
EndOfCurrentString: byte;
begin
//result:= TStringList.Create;
result.Clear;
repeat
EndOfCurrentString := Pos(Deli, Source);
if EndOfCurrentString = 0 then
result.add(Source)
else
result.add(Copy(Source, 1, EndOfCurrentString - 1));
Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
until EndOfCurrentString = 0;

end;
LeDesassembleur
Messages postés
64
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
16 janvier 2009
-
J'explose !

J'en ai ras la casquette de ces guerres de langages !
On est tous programmeurs et si certains mettent ce genre d'"outils" c'est qu'il y a certainement un besoin.
Maintenant, qu'un langage soit supérieur à un autre, j'en doute !
Il n'y a pas de langage "noble" ou de langage "poubelle"...
Chacun a son utilité, son domaine de prédilection et son public.
Personnelement, j'adore java mais je pratique également vb et je n'ai pas honte de le dire : j'aime bien vb (ben oui...)
Qu'on se gargarise en catégorisant les utilisateurs d'autres langages comme une sous-classe de sous-programmeur m'ennerve !
Si on arretait de pratiquer le nombrilisme, le monde aurait peut-être enfin un gout sucré plutôt qu'amer.
Fin de la pensée philosophique du jour...

Que chacun programme avec le langage qu'il aime ou qu'il maitrise. Point final.
Les "puduku" ou autres expressions tout droit sorties des cours d'écoles me font bouillir.

Si vous êtes d'accord avec ma vision, merci de le dire, je me sentirai moins seul...

Sans rancunes !
Et bonne programmation à tous

Le Désassembleur (alias Bertrand)
fabiin
Messages postés
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6 -
je n'en vois pas l'utilité,
kel fonction te pose problème ?
taye78
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007
-
Tu pourrais pas nous faire un exemple de chaque fonction stp ?
taye78
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007
-
Jai un pb a utilisé la fonction Split(); si tu pouvais me donner un exemple "complet" de cette derniere stp :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.