Скачать: CL | DM;

Вопрос по строкам   Найти похожие ветки 

← →
Filmax ©   (2003-03-29 15:10) [0]

Привет мастера, помогите кто-нибудь, есть Edit1=”y = -1814,600x5 + 56902,864x4 - 624751,818x3 + 2992085,500x2 - 6051123,219x + 4293548,572”
Как из него получить:
Edit1=-1814,600
Edit2=56902,864
Edit3=-624751,818
…
Edit6=4293548,572
Спасибо тому, кто выручит!

---

← →
Leran2002 ©   (2003-03-29 19:40) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Ed:TEdit;
S:string;
SLen,i,j:integer;
begin
S:=Edit1.Text;
SLen:=Length(S);
i:=0;
j:=0;
while i<=SLen do begin
if S[i] in ["-","+"] then begin
if S[i]="+" then inc(i);
inc(j);
Ed:=(FindComponent("Edit"+IntToStr(j)) AS TEdit);
Ed.Text:="";
while (i<=SLen)and(S[i] in ["0".."9",","," ","-"]) do begin
if S[i]<>" " then Ed.Text:=Ed.Text+S[i];
inc(i);
end;
end
else inc(i);
end;
end;

{-----------------------------
дамс делать мне действительно было нечего... :))
-----------------------------}

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c