Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

Как преобразовать строку2   Найти похожие ветки 

 
Filmax ©   (2003-03-26 05:06) [0]

Удалено модератором
Примечание: СПАМ


 
Спрашивающий   (2003-03-26 09:26) [1]

Положи на форму Едит и кнопку, в Едит введи начальное число 3E10
получишь 3*10^10
Это просто пример(он далек до должной функции), написал за 1 минуту поэтому может где есть ошибка ориентируйся на него и напиши свою функцию .

procedure TForm1.Button1Click(Sender: TObject);
var
S,S1:String;
begin
If Pos("E",Edit1.Text)=0 Then Exit;
S:=Copy(Edit1.Text,1,Pred(Pos("E",Edit1.Text)));
S1:=Copy(Edit1.Text,Succ(Pos("E",Edit1.Text)),Length(Edit1.Text));
Edit1.Text:=S+"*"+"10^"+S1
end;



Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
14-19859
alxx
2003-03-21 17:23
2003.04.07
:)


3-19436
grusty
2003-03-18 13:34
2003.04.07
Открытие файла базы данных, игнорируя индексный файл...


3-19469
Alek Aaz
2003-03-19 06:38
2003.04.07
ODBC Exel драйвер


6-19715
Карелин Артем
2003-02-14 10:06
2003.04.07
NMUDP. Есть вопросы.


3-19502
yuniki
2003-03-19 12:51
2003.04.07
Как конвертировать таблицу из одной кодировки в другую