INSTRREV
jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
-
3 mars 2005 à 17:14
jihelb Messages postés 49 Date d'inscription lundi 27 janvier 2003 Statut Membre Dernière intervention 24 mars 2017 - 7 mars 2005 à 14:06
jihelb Messages postés 49 Date d'inscription lundi 27 janvier 2003 Statut Membre Dernière intervention 24 mars 2017 - 7 mars 2005 à 14:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29890-instrrev
https://codes-sources.commentcamarche.net/source/29890-instrrev
7 mars 2005 à 14:06
De plus, si le résultat doit être -1 lorsque le car. n'est pas trouvé il est préférable de faire:
function InstrRev(Src:string; s: Char): integer;
var B:integer;
begin
result := -1;//pour pas trouvé
for B:= length(src) downto 1 do
if src[B] = s
then begin
result := B;//rang changé avant la sortie de boucle
break;
end;
end;
ou bien pour éviter une attribution inutile:
function InstrRev(Src:string; s: Char): integer;
var B:integer;
begin
for B:= length(src) downto 1 do
if src[B] = s
then begin
result := B;//rang changé avant la sortie de boucle
EXIT;//trouvé, on sort de la function
end;
//on arrive ici seulement si car. pas trouvé ou src vide
result := -1
end;
5 mars 2005 à 10:18
5 mars 2005 à 09:09
Voilà un test bien inutile puisque S est du type Char et que le type Char a une longueur de 1, quelque soit son contenu.
4 mars 2005 à 17:06
for B := Length(Src) downto 1,oui j'ai merdé, les strings sont indexés à 1 ;).
Dans le cas ou le caractere n'est pas la ca donnera 0 du coup.
Juste une petite remarque sur ton source.Ne repete pas length(src) plusieurs fois,stocke le au début,sinon ca réévalue à chaque fois(pas avc les optimisations de Delphi mais bon).
4 mars 2005 à 17:01
4 mars 2005 à 16:59
function TForm1.InstrRev(Src:string; s: Char): integer;
var B:integer;
begin
result := -1;
if length(src) = 0 then exit;
if length(s) = 0 then exit;
for B:= length(src) downto 0 do
if src[B] = s then
break;
result := B;
end;
C'est OK?
4 mars 2005 à 16:51
4 mars 2005 à 16:48
4 mars 2005 à 16:36
4 mars 2005 à 15:51
begin
for i:= length(src) -1 downto 0 do
if src[i] = s then
break;
result := i;
end;
Y'a ça aussi ^^.
4 mars 2005 à 12:28
Repeat
...
Until ...
3 mars 2005 à 18:02
3 mars 2005 à 17:59
3 mars 2005 à 17:57
3 mars 2005 à 17:54
3 mars 2005 à 17:44
3 mars 2005 à 17:42
3 mars 2005 à 17:39
3 mars 2005 à 17:14
Alors je ne trouve pas très élégant de programmer en mettant des exit dans les boucle for. On se croirait revenu au temps de la prehistoire informatique lol.
Tiens voici deux fonctions (vite faites) parmi tant d'autres pour faire cela :
function SearchChr(Chr : Char; S : String) : Integer;
var
P0 : Integer;
begin
Result := 0;
P0 := Pos(Chr,S);
While (P0>0) do
begin
Result := Result + P0;
P0 := Pos(Chr,Copy(S,Result+1,Length(S)-P0));
end;
end;
function SearchChr2(Chr : Char; S : String) : Integer;
var
I : Integer;
begin
Result := 0;
I := Length(S);
While (Result = 0) and (I > 0) do
begin
If (Chr = S[I]) then Result := I;
Dec(I);
end;
end;
Voila c'est tout.
Bonne prog,
JMP77.