Главная страница
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-19786
Кило
2003-03-19 12:36
2003.04.07
DsgnIntf.pas или DsgnIntf.dcu - где они?


3-19434
off
2003-03-18 13:41
2003.04.07
Иной способ?


3-19510
Наташа
2003-03-17 08:51
2003.04.07
Типы в IB


14-19820
melavcorp
2003-03-20 11:34
2003.04.07
Подскажите где взять компонент типа..TDBJpegImage ...


3-19505
ant
2003-03-20 02:52
2003.04.07
Подскажите в D5 под Win2000, XP. ошибка EOF BOF