Конвертор величин в Delphi

[TaYgA]

Всем доброго времени суток.... Мне нужен ваш совет... Хочу написать конвертор величин, но не совсем понимаю как лучше начать... В голову лезит только такой способ:

Edit1.text:=a;\\ метры
Edit2.text:=b;\\ сантиметры 
Edit3.text:=c;\\ милиметры
if a<>'  ' then begin
b:=a*100;
c:=b*10;
b:=Edit2.text;
c:=Edit3.text;
end else
if b<>'  ' then begin
a:=b/100;
c:=b*10;
a:=Edit1.text;
c:=Edit3.text;
end else
if c<>'  ' then begin
a:=b/100;
b:=c/10;
a:=Edit1.text;
b:=Edit2.text;
end;

Хочу использовать на много больше величин для перевода, соответственно код увеличится во много раз.... Нет ли более простого способа создания конвертора?!?!

[Alex Cones]

Создаем файлы с соответствующими значениями:
001.txt

1
100
Метр
Сантиметр

Потом простейшим AssignFile все сгружаем. Создаем много-много таких файлов с разными типами

[TaYgA]

А можно чуть по подробней, а то я не понимаю о чём реч

[Alex Cones]

AssignFile(F,'Base001.txt');
reset(F);
ReadLn(F,S);
Value1:=StrToInt(S);
ReadLn(F,S);
Value2:=StrToInt(S);
ReadLn(F,S);
Name1:=S;
ReadLn(F,S);
Name2:=S;
CloseFile(F);
...
Zna:=StrToInt(Edit1.Text);
Otv:=Valu1*Zna;
Edit2.Text:=IntToStr(Otv);

Примерно так.

[TaYgA]

Я не про то Я не понимаю принцип работы программы... Тоесть допустим есть два компонента ComboBox1, ComboBox2 в которых выбирается из какой в какую систему перевести. Они сравневаются с переменными из файла Name1, Name2. Есть Edit1 и Edit2 в одном будет введённое значение, а в другом выдаётся ответ... Когда ComboBox1=Name1 в переменную Value1 из файла записывается число, соответственно ComboBox2,Name2 и Value2 происходит тоже самое, после чего производятся действие.... Это так работает?!?!?!

[Alex Cones]

Щас накатаю пример формы, посмотришь...

Примерно так.
В папке с базами осуществляешь поиск файлов. Имя каждого файла заносишь в комбобокс. (Метр-сантиметр.txt Сантиметр-метр.txt ...)
И при выборе итема грузишь данные из файла.

[TaYgA]

Огромное спасибо... Буду пробывать!

[Serge_Bliznykov]

я бы рекомендовал Вам идею Алекса оставить, только объединить всё это в ОДИН текстовый (или не обязательно текстовый, можно и INI, а можно и свою структуру замутить, тот же file of СвойТипЗаписи) файл.
это имхо, разумеется...

[TaYgA]

В папке с базами осуществляешь поиск файлов. Имя каждого файла заносишь в комбобокс. (Метр-сантиметр.txt Сантиметр-метр.txt ...)
И при выборе итема грузишь данные из файла.

Тоесть вы предлагаете создать много текстовых файлов, в котором записано одно число, и если наше Name совподает с названием текстового документа, тогда переменной Value присвоить значение этого числа и дальше вычислять.... Я правельно понял!??!

[Alex Cones]

Можно и так, можно и как подсказал Serge_Bliznykov.

в котором записано одно число

Почему одно?
Имя файла = имя базы
1е число = первое значение 27.54 (руб)
2е число = второе относительно первого 1 ($)
3я строка = имя первого Рубль
4я строка = имя второго Доллар
Или в таком же порядке писать в иньку.