Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.014 c
14-95944
DeepProg
2002-08-02 19:21
2002.08.29
Education


3-95680
Aleksandr
2002-08-08 14:26
2002.08.29
При добавке индекса к таблице ругается...


7-96000
Dim0S
2002-06-16 16:49
2002.08.29
работа с СОМ портом в NT


3-95724
NDR
2002-08-09 14:09
2002.08.29
F1,F2,F3


1-95841
[BAD]Angel
2002-08-17 12:45
2002.08.29
Люди, спасайте!!! Уже который день мучаюсь...