Utilisation d'une function ExtarctValVar(ligne):string; [Delphi6] [Résolu]

Signaler
Messages postés
78
Date d'inscription
jeudi 14 février 2008
Statut
Membre
Dernière intervention
14 octobre 2008
-
Messages postés
78
Date d'inscription
jeudi 14 février 2008
Statut
Membre
Dernière intervention
14 octobre 2008
-
Bonjour,

j'aimerais avoir des reneignements au sujet de cette function et d'un petit exemple svp.

Je cherche a utiliser celle afin de couper en 2 morceau une chaine de caractére du type :
S200=5
de prendre avec une function le S200 et avec une autre le 5
merci de m'aider

4 réponses

Messages postés
96
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
26 octobre 2009
3
Salut,

Il suffit de trouver la position du = avec la fonction Pos(Substr: string; S: string): Integer;
puis de découper le text avec la fonction function Copy(S; Index, Count: Integer): string;

Alex
Messages postés
96
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
26 octobre 2009
3
Ok mais je fais seulement la partie difficile je te laisse la facile.

pour le 5:

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s := 'S200=5';
  Button1.Caption := copy(s, pos('=',s) + 1, length(s) - pos('=',s));
end;

profite de comprende le code et trouve la solution pour le S200

Alex
Messages postés
78
Date d'inscription
jeudi 14 février 2008
Statut
Membre
Dernière intervention
14 octobre 2008

serait il possible d'avoir un petit exemple stp

je te remerci bien
Messages postés
78
Date d'inscription
jeudi 14 février 2008
Statut
Membre
Dernière intervention
14 octobre 2008

Merci pour ton aide j'arrive a obtenir la valeur souhaitée mais j'ai encore quelques petits souci!!!!