переменная переменной...

[sew960i]

на php это $$a
а как на Delphi 7?

[raxp]

указатель? ...вам собственно для какой цели.

[sew960i]

ну вот пишу калькулятор валют... нужно минимум 30...
Вот код:
----------------------------------------

unit kurs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sEdit, sComboBox, sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sComboBox1: TsComboBox;
    sComboBox2: TsComboBox;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sButton1: TsButton;
    sButton2: TsButton;
    sButton3: TsButton;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b: real;
  usd,uah,rur,eur: real;
implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
if ((sComboBox1.Text = 'из') or (sComboBox2.Text = 'в')) then
MessageDlg('Выберите курс валют!',mtWarning,[mbOk,mbCancel],0)
else
//////////////////////////////////////////////
if  (sComboBox1.Text = 'UAH') then
uah:=StrToFloat(sEdit1.Text)
else if (sComboBox1.Text = 'USD') then
uah:=(StrToFloat(sEdit1.Text)*7.998)
else if (sComboBox1.Text = 'EUR') then
uah:=(StrToFloat(sEdit1.Text)*10.812)
else if (sComboBox1.Text = 'RUR') then
uah:=(StrToFloat(sEdit1.Text)*0.265);
//////////////////////////////////////////////
usd:=(uah/7.998);
eur:=(uah/10.812);
rur:=(uah/0.265);
//////////////////////////////////////////////
if  (sComboBox2.Text = 'UAH') then
sEdit2.text:=floattostr(uah);
if  (sComboBox2.Text = 'USD') then
sEdit2.text:=floattostr(usd);
if  (sComboBox2.Text = 'EUR') then
sEdit2.text:=floattostr(eur);
if  (sComboBox2.Text = 'RUR') then
sEdit2.text:=floattostr(rur);
///////////////////////////////////////////////
end;

end.

-----------------------------------------------------------
Я просто подумал, что компактней будет если вместо

if  (sComboBox2.Text = 'UAH') then
sEdit2.text:=floattostr(uah);
if  (sComboBox2.Text = 'USD') then
sEdit2.text:=floattostr(usd);
if  (sComboBox2.Text = 'EUR') then
sEdit2.text:=floattostr(eur);
if  (sComboBox2.Text = 'RUR') then
sEdit2.text:=floattostr(rur);

------
написать так

sEdit2.text:=floattostr(из sComboBox2.Text как переменная);

[raxp]

...заведите лучше массивчик

valyta: array[0..n] of string = ('UAN', 'USD', 'RUR', 'EUR', ...n);

и выборку не по тексту, а по свойству itemindex

sEdit2.text:= valyta[combobox.itemindex]

аналогично можете и с курсом поступить, а то и хранить в виде объекта items комбобокса.

[Alex Cones]

sEdit2.text:=floattostr(из sComboBox2.Text как переменная);

||
||
||
\/

sEdit2.text:=sComboBox2.Text;

[sew960i]

нет... мне не нужно чтоб в sEdit2.text выводилось значение sComboBox2.Text...
Мне нужно чтоб в sEdit2.text выводился результат перевода валюты...
из sComboBox2.Text берется только вид валюты... т.е. какую вывести...
Вот скрин ниже...

[sew960i]

Ну так что... У кого-нибудь есть еще идеи?

[Kotofff]

Когда-то я делал конвертор валют простенький такой ...
Там в ComboBox`ах было "рубли" и "доллары" и все
Так вот все сводилось к этому (полный код не приведу - сам сделай):

  case sComboBox1.ItemIndex of
    0:case sComboBox2.ItemIndex of
        0:begin
          // наши действия - смотрим на индексы выбранных элементов в ComboBox`ах
          end;
        1:begin
          // наши действия - смотрим на индексы выбранных элементов в ComboBox`ах
          end;
      end;
    1:case sComboBox2.ItemIndex of
        0:begin
          // наши действия - смотрим на индексы выбранных элементов в ComboBox`ах
          end;
        1:begin
          // наши действия - смотрим на индексы выбранных элементов в ComboBox`ах
          end;
      end;
  end;

[sew960i]

не... такой вариант мне не подходит...
у тебя было 2 вида валют... а мне нужно 30...
(я хочу записать так, чтоб код был максимально короткий...)
Вот само задание:

Курсы валют Нацбанка Украины (не менее 30 валют)
Калькулятор валют должен обеспечивать пересчет в гривневый эквивалент любой валюты.
Кроме того, калькулятор валют должен обеспечивать пересчет выбранной валюты в эквивалент любой другой.

Мне просто нужен ответ на первый пост...

переменная переменной...
------------------------------------
на php это $$a
а как на Delphi 7?

[raxp]

Мне просто нужен ответ на первый пост...

иногда задачи в лоб не решаются, всегда есть нюансы в реализации...

...чтоб уменьшить код, нужно:
1- принять 1 валюту в качестве константы и хранить соотношения всех остальных к ней
2- используя combobox, грех не воспользоваться свойством tobject
3- использовать обратимость операций.

var valyta: array[0..3] of string = ('UAN', 'USD', 'RUR', 'EUR');
     kurs  : array[0..3] of integer = (1100, 150, 5500, 100);

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
 for i:= low(valyta) to high(valyta) do begin // заполняем комбо вне зависимости от кол-ва валют
  combobox1.Items.AddObject(valyta[i], TObject(kurs[i]));
  combobox2.Items.AddObject(valyta[i], TObject(kurs[i]))
 end 
end;

procedure TForm1.RxSpinEdit1Change(Sender: TObject);
begin
 if combobox1.ItemIndex=-1 then combobox1.ItemIndex:= 0; // обрабатываем, если пользователь забыл выбрать
 if combobox2.ItemIndex=-1 then combobox2.ItemIndex:= 0;
 //
 rxspinedit2.Value:= rxspinedit1.Value * // собственно выборка
                     Integer(combobox2.Items.Objects[combobox2.ItemIndex])/
                     Integer(combobox1.Items.Objects[combobox1.ItemIndex])
end;


procedure TForm1.RxSpinEdit2Change(Sender: TObject);
begin
 if combobox1.ItemIndex=-1 then combobox1.ItemIndex:= 0;
 if combobox2.ItemIndex=-1 then combobox2.ItemIndex:= 0;
 //
 rxspinedit1.Value:= rxspinedit2.Value *
                     Integer(combobox1.Items.Objects[combobox1.ItemIndex])/
                     Integer(combobox2.Items.Objects[combobox2.ItemIndex])
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 rxspinedit1.OnChange(nil)
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
 rxspinedit2.OnChange(nil)
end;

вот и весь калькулятор...


upd
-------
добавлю, чтоб не было недопонимания... подход изложенный мной, позволяет переводить из любой валюты в любую другую и обратно при том коде, что уже есть... наращивается только массивы соотношений валют и все.