Convertir C# en Delphi

**mrsimo7** · 04/02/2016, 07h47

Bonjour,
je veux savoir svp comment convertir ce code en c# en delphi
Cordialement,

Code c# :

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
23
24
25
26
27
    void TextBox1TextChanged(object sender, EventArgs e)
    {
        StringBuilder key = new StringBuilder();
 
        // for each digit in the serial number:
        // 1. convert it to int and add 5, then convert it back to string
        // 2. if the length of result string is > 1, take the second digit else take the first one
        // 3. append that digit to the end of the key
 
        for (int i = 0; i < textBox1.Text.Length; i++)
        {                               
            string str2 = (Convert.ToInt32(textBox1.Text.Trim().Substring(i, 1)) + 5).ToString();
 
            if (str2.Length == 1)
                key.Append(str2);
            else        
                key.Append(str2.Substring(1, 1));
        }
 
        textBox2.Text = key.ToString();
    }
 
    void Button2Click(object sender, EventArgs e)
    {
        textBox2.SelectAll();
        textBox2.Copy();
    }

**anapurna** · 04/02/2016, 10h20

salut

rien de bien compliqué a ta demande
tout ce passe dans les événements
je suppose que les textbox sont l'éqivalent de nos Tedit

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
23
24
25
26
27
28
29
Procedure TMaForm.TextBox1TextOnChange(object sender)
var
  str2 : string;
 key  : TStringList;
 i : Integer;
begin
   key := TStringList.create;

// for each digit in the serial number:
// 1. convert it to int and add 5, then convert it back to string
// 2. if the length of result string is > 1, take the second digit else take the first one
// 3. append that digit to the end of the key

  for i := 0 To pred(length(textBox1.Text)) do 
  begin 
    str2 := IntTostr(StrToInt(Copy(trim(textBox1.Text),i, 1)) + 5));
    if (Length(str2) = 1)
       key.Add(str2)
    else 
      key.Add(Copy(str2,1, 1));
  end;
  textBox2.Text = key.Text;
end;

Procedure TMaForm.Button2Click(object sender)
begin
  textBox2.SelectAll();
  textBox2.CopyToClipboard();
end;

le code n'est pas testé mais le principe est là

**mrsimo7** · 04/02/2016, 10h43

merci pour votre reponse,
j'ai compiler mais j'ai eu ces erreurs :
[dcc32 Error] Unit1.pas(47): E2003 Undeclared identifier: 'i'
[dcc32 Error] Unit1.pas(49): E2029 'END' expected but ')' found
[dcc32 Error] Unit1.pas(50): E2066 Missing operator or semicolon

**Paul TOTH** · 04/02/2016, 11h17

Envoyé par mrsimo7

merci pour votre reponse,
j'ai compiler mais j'ai eu ces erreurs :
[dcc32 Error] Unit1.pas(47): E2003 Undeclared identifier: 'i'
[dcc32 Error] Unit1.pas(49): E2029 'END' expected but ')' found
[dcc32 Error] Unit1.pas(50): E2066 Missing operator or semicolon

il te manque "premiers pas avec Delphi" je pense...