Right$, left$, mid$, split, trim$,... en delphi
0/5 (9 avis)
Vue 9 421 fois - Téléchargée 420 fois
Description
Voci une unit qui regroupe pas mal de fonctions de manipulation de String,...
fonctions portant le même "nom" que sous vb,...
Ce code n'est pas de moi, mais il peut servir ;-)
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
- Delphi trim
- Trim delphi - Meilleures réponses
- Delphi leftstr - Meilleures réponses
- Trim delphi - Forum - Delphi / Pascal
- Delphi format - Conseils pratiques - Delphi
- Classe delphi - Conseils pratiques - Delphi
- Type delphi - Conseils pratiques - Delphi
- Delphi message - Conseils pratiques - Delphi
8 févr. 2005 à 18:14
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;
21 oct. 2004 à 14:09
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)
- Messages postés
-
329
- Date d'inscription
- mercredi 4 avril 2001
- Statut
- Membre
- Dernière intervention
- 8 décembre 2009
610 déc. 2002 à 18:12
kel fonction te pose problème ?
10 déc. 2002 à 10:03
8 déc. 2002 à 18:34
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.