Главная страница
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
4-19920
xZero
2003-02-09 00:15
2003.04.07
PE


1-19669
bite
2003-03-26 08:37
2003.04.07
выбор эл-та ListBox правой кнопкой мыши


14-19871
madcap
2003-03-20 22:44
2003.04.07
Дискета к книге


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


14-19806
Katerinka
2003-03-19 15:21
2003.04.07
.net