0/5 (9 avis)
Vue 9 421 fois - Téléchargée 420 fois
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.
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)
10 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.