как реализовать это на Делфи ???

[akasex]

пытался сделать это на делфи сперва не получилось...накидал на С#....a как можно реализовать этот код в делфи ???

using System;
using System.IO;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace TestDigits
{
    public partial class Form1 : Form
    {
        string[] zero = new string[3] { "0", "@", "_"};
        string[] one = new string[3] { "1", "Y", "Z" };
        string[] two = new string[3] { "A", "B", "C" };
        string[] three = new string[3] { "D", "E", "F" };
        string[] four = new string[3] { "G", "H", "I" };
        string[] five = new string[3] { "J", "K", "L" };
        string[] six = new string[3] { "M", "N", "O" };
        string[] seven = new string[3] { "P", "Q", "R" };
        string[] eight = new string[3] { "S", "T", "U" };
        string[] nine = new string[3] { "V", "W", "X" };
        string[][] asd = new string[10][];

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            char[] ch = new char[10];
            ch = this.textBox1.Text.ToCharArray();
            for (int i = 0; i < 10; i++)
            { 
                switch (ch[i])
                {
                    case '0':   asd[i] = zero;
                                break;
                    case '1':   asd[i] = one;
                                break;
                    case '2':   asd[i] = two;
                                break;
                    case '3':   asd[i] = three;
                                break;
                    case '4':   asd[i] = four;
                                break;
                    case '5':   asd[i] = five;
                                break;
                    case '6':   asd[i] = six;
                                break;
                    case '7':   asd[i] = seven;
                                break;
                    case '8':   asd[i] = eight;
                                break;
                    case '9':   asd[i] = nine;
                                break;
                }
            }
            
            Calculate(asd);
        }

        private void Calculate(string[][] digits)
        {
            TextWriter tws = new StreamWriter("test.txt");
            for (int i1 = 0; i1 <= 2; i1++) 
            {
                for (int i2 = 0; i2 <= 2; i2++) 
                {
                    for (int i3 = 0; i3 <= 2; i3++)
                    {
                        for (int i4 = 0; i4 <= 2; i4++)
                        {
                            for (int i5 = 0; i5 <= 2; i5++)
                            {
                                for (int i6 = 0; i6 <= 2; i6++)
                                {
                                    for (int i7 = 0; i7 <= 2; i7++)
                                    {
                                        for (int i8 = 0; i8 <= 2; i8++)
                                        {
                                            for (int i9 = 0; i9 <= 2; i9++)
                                            {
                                                for (int i10 = 0; i10 <= 2; i10++)
                                                {
                                                    tws.Write(digits[0][i1] + digits[1][i2] + digits[2][i3] + 
                                                        digits[3][i4] + digits[4][i5] + digits[5][i6] + 
                                                        digits[6][i7] + digits[7][i8] + digits[8][i9] + 
                                                        digits[9][i10] + Environment.NewLine);
                                                }
                                            }
                                        }
                                    }
                                }
                            }
                        }
                    }
                }
            }
            tws.Close();
            tws.Dispose();
            MessageBox.Show("Writing Done!!!");           
        }

        private void button2_Click(object sender, EventArgs e)
        {
            TextReader tr = new StreamReader("test.txt");
            
            this.richTextBox1.Text += tr.ReadToEnd();
            tr.Close();
            tr.Dispose();
        }
    }
}

[mutabor]

string[] one = new string[3] { "1", "Y", "Z" };

var
one: string = '1YZ';
//или
one: array[0..2] of char = ('1','Y','Z');

asd: array[0..9] of string;

case <переменная> of
  0: <оператор 1>;
  1: <оператор 2>;
  // и так далее
end;

[B_N]

Нет, mutabor, это не одна строка, а массив строк.А от автора хотелось бы услышать, что вся эта инопланетная конструкция должна делать-то...

[akasex]

вообще ето простеишии перебор всех вариантов значении...т.е. если имеем A{'1','2'} B{'3','4'} C{'5',6'} то получаем или ABC ACB BAC BCA CAB CBA....a она до;йна вивести резултат всех значении сочетании этих массивов....проблема в организации array of array в делфи.....

[B_N]

Сообщение от akasex

...проблема в организации array of array в делфи.....

??? какая проблема?

var
    a : array [0 .. 2] of array of string;
    b : array of array of string;
    c : array of array [0 .. 9] of string;
    d : array [0 .. 2] of array [0 .. 9] of string;
begin
.............
.............