DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015
-
16 mai 2004 à 16:10
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 2006
-
21 mai 2004 à 23:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 21 mai 2004 à 23:39
Effectivement c'est ce qui est dans le zip.
Mais vu les commentaires que tu avais ajouté, je ne pensais pas que c'étais ce que tu utilisas ( j'avais pas vu le zip à ce moment... )
DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 18 mai 2004 à 21:56
ça marche pas les balises style : "[img]" ?
DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 18 mai 2004 à 21:53
Si on te pose la question...tu dis que tu n'es pas au courant
Emandhal
Messages postés194Date d'inscriptiondimanche 2 mars 2003StatutMembreDernière intervention10 octobre 20063 17 mai 2004 à 09:32
DRJEROME ton code ne prend pas en compte le ÿ et sY...
et utiliser un boucle For est plus clair à mon avis vu que dans le meilleur des cas, il n'y a que 2 variables utilisées :)
sinon Nono a raison (comme souvent) AnsiUpperCase est deja tout fait :p
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 17 mai 2004 à 00:58
Voir AnsiUpperCase aussi... c'est tout fait
DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 16 mai 2004 à 16:18
ce qui est comme :
______________________________
function majuscule(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if Ch in ['a'..'z'] then Dec(Ch, 32);
if Ch in ['à'..'ö'] then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
______________________________
mais bon...trop long à mon goût
DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 16 mai 2004 à 16:10
je viens de regarder (et découvre) "METTRE LA PREMIERE LETTRE D'UNE STRING EN MAJUSCULE.", j'ai vu des codes proches au niveau source. Il n'y a pas une infinité de possibilités
je pensais aussi à :
______________________________________________
function majuscule(s:string):string;
begin
while length(result)<length(s) do if (s[length(result)+1] in ['a'..'z'])or(s[length(result)+1] in ['à'..'ö']) then result:=result+chr(ord(s[length(result)+1])-32) else result:=result+s[length(result)+1];
end;
______________________________________________
ou à
______________________________________________
function majuscule(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
if (Ch >= 'à') and (Ch <= 'ö') then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
______________________________________________
qui est une dérivée directe de la fonction uppercase de Delphi
21 mai 2004 à 23:39
Mais vu les commentaires que tu avais ajouté, je ne pensais pas que c'étais ce que tu utilisas ( j'avais pas vu le zip à ce moment... )
18 mai 2004 à 21:56
18 mai 2004 à 21:53
Si on te pose la question...tu dis que tu n'es pas au courant
17 mai 2004 à 09:32
et utiliser un boucle For est plus clair à mon avis vu que dans le meilleur des cas, il n'y a que 2 variables utilisées :)
sinon Nono a raison (comme souvent) AnsiUpperCase est deja tout fait :p
17 mai 2004 à 00:58
16 mai 2004 à 16:18
______________________________
function majuscule(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if Ch in ['a'..'z'] then Dec(Ch, 32);
if Ch in ['à'..'ö'] then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
______________________________
mais bon...trop long à mon goût
16 mai 2004 à 16:10
je pensais aussi à :
______________________________________________
function majuscule(s:string):string;
begin
while length(result)<length(s) do if (s[length(result)+1] in ['a'..'z'])or(s[length(result)+1] in ['à'..'ö']) then result:=result+chr(ord(s[length(result)+1])-32) else result:=result+s[length(result)+1];
end;
______________________________________________
ou à
______________________________________________
function majuscule(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
if (Ch >= 'à') and (Ch <= 'ö') then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
______________________________________________
qui est une dérivée directe de la fonction uppercase de Delphi