ANSIEXTRACTQUOTEDSTR |
Extrait des guillemets ANSI |
|---|---|
| Delphi/Kylix/Lazarus | SysUtils |
Syntaxe
| Function AnsiExtractQuotedStr(Var Src:PChar;Quote:Char):String; |
Paramètres
| Nom | Description |
|---|---|
| Src | Ce paramètre permet d'indiquer la chaine de caractères contenant l'expression à traiter |
| Quote | Ce paramètre permet d'indiquer le type de guillemet à mettre à la place |
Description
Cette fonction élimine les guillemets au début et à la fin et remplace les guillemets en double pour une simple.
Exemple
Voici quelques exemples typiques de l'utilisation de cette fonction :
- Program AnsiExtractQuotedStrSamples;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- Var
- Src:PChar;
-
- BEGIN
- Src := 'Gladir';
- WriteLn('AnsiExtractQuotedStr(''Gladir'',''"'') = ',AnsiExtractQuotedStr(Src,'"'));
- Src := '"Gladir"';
- WriteLn('AnsiExtractQuotedStr(''"Gladir"'',''"'') = ',AnsiExtractQuotedStr(Src,'"'));
- Src := 'SELECT * FROM table WHERE nom="Gladir"';
- WriteLn('AnsiExtractQuotedStr(''SELECT * FROM table WHERE nom="Gladir"'',''"'') = ',AnsiExtractQuotedStr(Src,'"'));
- Src := 'SELECT * FROM table WHERE nom=''Gladir''';
- WriteLn('AnsiExtractQuotedStr(''SELECT * FROM table WHERE nom=''Gladir'''',''"'') = ',AnsiExtractQuotedStr(Src,'"'));
- Src := '"SELECT * FROM table WHERE nom=''Gladir''"';
- WriteLn('AnsiExtractQuotedStr(''"SELECT * FROM table WHERE nom=''Gladir''"'',''"'') = ',AnsiExtractQuotedStr(Src,'"'));
- Src := '"SELECT * FROM table WHERE nom=''Gladir''"';
- WriteLn('AnsiExtractQuotedStr(''SELECT * FROM table WHERE nom=''Gladir'''',''"'') = ',AnsiExtractQuotedStr(Src,''''));
- Src := '''SELECT * FROM table WHERE nom=''Gladir''''';
- WriteLn('AnsiExtractQuotedStr(''SELECT * FROM table WHERE nom=''Gladir'''',''"'') = ',AnsiExtractQuotedStr(Src,''''));
- END.
on obtiendra le résultat suivant :
AnsiExtractQuotedStr('Gladir','"') =AnsiExtractQuotedStr('"Gladir"','"') = Gladir
AnsiExtractQuotedStr('SELECT * FROM table WHERE nom="Gladir"','"') =
AnsiExtractQuotedStr('SELECT * FROM table WHERE nom='Gladir'','"') =
AnsiExtractQuotedStr('"SELECT * FROM table WHERE nom='Gladir'"','"') = SELECT * FROM table WHERE nom='Gladir'
AnsiExtractQuotedStr('SELECT * FROM table WHERE nom='Gladir'','"') =
AnsiExtractQuotedStr('SELECT * FROM table WHERE nom='Gladir'','"') = SELECT * FROM table WHERE nom=
Dernière mise à jour : Mercredi, le 18 février 2015