Разделение строчки на две части

← →
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 тебе помогут

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