cs_FredY68
Messages postés11Date d'inscriptionsamedi 5 juillet 2003StatutMembreDernière intervention 8 juin 2009
-
8 juin 2009 à 15:46
cs_FredY68
Messages postés11Date d'inscriptionsamedi 5 juillet 2003StatutMembreDernière intervention 8 juin 2009
-
9 juin 2009 à 14:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_FredY68
Messages postés11Date d'inscriptionsamedi 5 juillet 2003StatutMembreDernière intervention 8 juin 2009 9 juin 2009 à 14:34
ohh, je suis passé à côté ....
merci
Fredy
beckerich
Messages postés302Date d'inscriptionjeudi 29 septembre 2005StatutMembreDernière intervention17 septembre 20132 8 juin 2009 à 18:19
Bonsoir,
dans l'objet TOODoc, il y a une procedure qui te permet d'enregistrer un fichier
function Enregistrer(s_fichier: string ''; b_ecrase: Boolean False): boolean;
s_fichier : nom du fichier
b_erase : écrase un fichier existant si True
Luc.
cs_FredY68
Messages postés11Date d'inscriptionsamedi 5 juillet 2003StatutMembreDernière intervention 8 juin 2009 8 juin 2009 à 18:07
oups ... j'ai oublié de dire que je suis sous D7
j'ai trouvé la correction pour D7 :
--- ligne erreur corrigée ---
if (c in ['0'..'9', 'a'..'z', 'A'..'Z'])
or (x = 0) then
Result:= c
------------------------------------------------------
verif de la syntaxe correct.
je cherchais à OOo writer et ce source répond à mes attentes --- il me reste à trouver comme enregistrer le fichier.
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 8 juin 2009 à 17:00
CharInSet ne doit exister vraisemblablement que sous Delphi 2009..
cs_FredY68
Messages postés11Date d'inscriptionsamedi 5 juillet 2003StatutMembreDernière intervention 8 juin 2009 8 juin 2009 à 15:46
Bonjour
lorsque je lance une vérification de la syntaxe, le message d'erreur suivant, pour 'unité "objet_00.pas", apparaît : Charinset identificateur non déclaré.
---- extrait de la fonction ---
function escapeToUTF8URL(c: Char): String;
var x: Integer;
begin
if ord(c) < 128 then begin
x:= Pos(c, USASCIIexcl);
if CharInSet(c,['0'..'9', 'a'..'z', 'A'..'Z'])
or (x = 0) then
Result:= c // caractères acceptés, réservés ou non réservés
else // caractères exclus, à convertir
Result:= Copy(USASCIIexcl, x+1, 3);
end else begin // conversion en UTF8 à deux octets
x:= Pos(c, UTF8chars);
if x > 0 then
Result:= Copy(UTF8chars, x+1, 6)
else // caractère inconnu ( mettre à jour la table UTF8chars ? )
Result:= '?';
end;
end;
------------------------------------------------------
Me considérant encore débutant, je n'arrive pas à corriger l'erreur.
Merci pour votre réponse.
9 juin 2009 à 14:34
merci
Fredy
8 juin 2009 à 18:19
dans l'objet TOODoc, il y a une procedure qui te permet d'enregistrer un fichier
function Enregistrer(s_fichier: string ''; b_ecrase: Boolean False): boolean;
s_fichier : nom du fichier
b_erase : écrase un fichier existant si True
Luc.
8 juin 2009 à 18:07
j'ai trouvé la correction pour D7 :
--- ligne erreur corrigée ---
if (c in ['0'..'9', 'a'..'z', 'A'..'Z'])
or (x = 0) then
Result:= c
------------------------------------------------------
verif de la syntaxe correct.
je cherchais à OOo writer et ce source répond à mes attentes --- il me reste à trouver comme enregistrer le fichier.
8 juin 2009 à 17:00
8 juin 2009 à 15:46
lorsque je lance une vérification de la syntaxe, le message d'erreur suivant, pour 'unité "objet_00.pas", apparaît : Charinset identificateur non déclaré.
---- extrait de la fonction ---
function escapeToUTF8URL(c: Char): String;
var x: Integer;
begin
if ord(c) < 128 then begin
x:= Pos(c, USASCIIexcl);
if CharInSet(c,['0'..'9', 'a'..'z', 'A'..'Z'])
or (x = 0) then
Result:= c // caractères acceptés, réservés ou non réservés
else // caractères exclus, à convertir
Result:= Copy(USASCIIexcl, x+1, 3);
end else begin // conversion en UTF8 à deux octets
x:= Pos(c, UTF8chars);
if x > 0 then
Result:= Copy(UTF8chars, x+1, 6)
else // caractère inconnu ( mettre à jour la table UTF8chars ? )
Result:= '?';
end;
end;
------------------------------------------------------
Me considérant encore débutant, je n'arrive pas à corriger l'erreur.
Merci pour votre réponse.