Главная страница
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.018 c
14-19854
Romano
2003-03-21 14:20
2003.04.07
японский кроссворд


3-19493
Slava11
2003-03-19 21:11
2003.04.07
Создание таблиц во время Runtime


6-19726
TButton
2003-02-13 18:07
2003.04.07
СерверСокет


1-19647
Opera
2003-03-25 19:16
2003.04.07
Определение


14-19814
Товарищъ
2003-03-20 11:21
2003.04.07
Стих! (собственный:)