Как преобразовать строку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;

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