Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Разделение строчки на две части   Найти похожие ветки 

← →
CCCatch   (2002-08-19 20:41) [0]

Как из Edit1 ту часть цифр, которая стоит до точки, перенести в едит с именем Left,
а ту часть цифр, которая стоит после точки - в едит с именем Right?

P.S. Точка не нужна :)

---

← →
VID ©   (2002-08-19 20:48) [1]

Type TGettingSide = (gsLeft, gsRight);

Function GetLeftRightFromString(S:String; GettingSide:TGettingSide; Devider:Char):String;
Var P:Integer;
begin
Result := "";
IF Length(Trim(S))=0 then Exit;
P:=Pos(Defider, S);
IF GettingSide = gsRight then
Result := Copy(S, p+1, Length(S)-p+1);
IF GettingSide = gsLeft then
Result := Copy (s, 1, P-1);
end;

---

← →
Anatoly Podgoretsky ©   (2002-08-19 20:51) [2]

Ну развелось делителей, а умножателей нет

Pos и Copy тебе помогут

---

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

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c