Discussion :

[valoji]

Bonjour tous le monde,

je récupere le contenu de ma chaine à partir d'un fichier

ma chaine := 'l'heure'

procedure TFiche_Recupccam.Recup(Chaine : string);
je fais un quotedstr(chaine), et il me renvoi ''l''heure''.

Mon problème je voudrais qu'il me renvoi 'l''heure'.

Pouvez -vous m'aider?

Merçi,
Vajilo.

[Rayek]

1- Tu verifies si tu as des quotes en debut et/ou fin de chaine
2- Tu supprimes les quotes (debut et/ou fin ^^)
3- Tu quotestr ta nouvelle chaine.

[Bloon]

c'est une fonction assez simple à programmer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function doublerCharSaufExtremites(const s : string; const c : char) : string;
var
  i, n : integer;
begin
  n := length(s);
  if (n >= 1) then
    result := s[1]
  else
  begin
    result := '';
    exit;
  end;
  for i := 2 to n - 1 do
  begin
    if (s[i] = c) then
      result := result + c + c
    else
      result := result + s[i];
  end;
  if (n >= 2) then
    result := result + s[n];
end;

Bloon