| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перевод миль в километры [D7, XP]
Омск © (2008-04-09 19:12:00)Пишу программу, которая переводит мили в километры:
на форме многострочное поле и кнопка с картинкой ок, выводящая в много строчное поле таблицу перевода километров в мили от 1 до 10 км, одна миля равна 1,603 км.
Написал так:
procedure TForm1.Button1Click(Sender: TObject);
var
m,k,c:real;
begin
m:=1.603;
k:=1;
memo1.Lines.Add(floattostr(k*m));
end;
Пишется только значение мили и все, как вывести всю таблицу я не смог написать.
Подскажите пожалуйста
clickmaker (2008-04-10 09:33:00) [1]StringGrid.RowCount := 11;
StringGrid.Cells[0,0] := 'км';
StringGrid.Cells[1,0] := 'миль';
for i := 1 to 10 do
begin
StringGrid.Cells[0,i] := IntToStr(i);
StringGrid.Cells[1,i] := FloatToStr(double(i) / 1.6093);
end;
Jeer (2008-04-10 09:19:00) [2]Я признаю только одну - морскую:)
1852 м точно
Германн (2008-04-10 01:06:00) [3]
> palva © (09.04.08 19:43) [3]
>
> Одна миля это 1.609 км, а не то, что у вас написано.
>
Этих миль, как грязи.
Омск (2008-04-09 19:45:00) [4]Все, понял как написать: memo1.Lines.Add(floattostr(k/1.603)+' километров');
Омск (2008-04-09 19:44:00) [5]Спасибо, с помощью цикла написал
У меня тут строка: memo1.Lines.Add(floattostr(k/1.603));
Надо чтобы после вывода числа добавить еще слово, я помню что пишется примерно так:
memo1.Lines.Add(floattostr(k/1.603+'километров'));
palva (2008-04-09 19:43:00) [6]Одна миля это 1.609 км, а не то, что у вас написано.
Dark (2008-04-09 19:26:00) [7]For i:=1 to 10 do ... и т.д. вот тебе, куда нужно копать
Dark (2008-04-09 19:23:00) [8]Не работает потому, что бред тут полный. Обьясни, какие переменные что значат. Ещё скажи, таблица должна выводиться по нажатию одной кнопки 1 раз или по нажатию каждый раз будет добавлятсья одна строка?
| |
