Utilisation de regex : TRegExpr

Bonsoir,

j'utilise TRegExpr pour faire mes regex.
Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 procedure TForm1.testClientRead(Sender: TObject; Socket: TCustomWinSocket); const RRegister = '[A-Za-z]+ : [a-zA-Z0-9]+ || [a-zA-Z0-9]+'; var r : TRegExpr; result : String; begin //Log data Memo1.Lines.Add(DateTimetoStr(Now()) + ' | ' + Socket.RemoteAddress + ' | ' + 'Client Sending Data'); Result := ''; r := TRegExpr.Create; try r.Expression := RRegister; if r.Exec(Socket.ReceiveText) then REPEAT Result := Result + r.Match [0]; UNTIL not r.ExecNext; finally r.Free; end; ShowMessage(Result); end;
Voila ce que vaut Socket.ReceiveText : Register : Pseudo || Pass où pseudo et pass contiennent n'importe quel charactère.

Voila ce que je veux faire : sortir dans uen variable le mod Register, dans une autre le pseudo et dans une derneire le password.

Quelqu'un peut il m'aider ?

il y as une fonction qui fait la séparation en donne comme paramétre le caractére de séparation
en plus tu peut meme crée cette procedure en utlisant copy,pos

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Function  separe(mot:string;sep:char):Tstrings;
  var  s,d:string;
   i:integer;
begin
      result:=TString.creat; 
      result.clear;
      repeat
          i:=pos(sep,mot);
          if i>1 then
            begin
              s:=copy(mot,1,i-1);
              result.add(s);
              mot:=copy(mot,i+1,length(mot)-i);
            end;
      until i=0;
end;
procedure dessait;
var  list:TStrings;
begin
 list:=separe(motrsu,'|');
//utilisation des donnée dans list ......
list.free;
end;

Thx :)