Главная страница
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.016 c
1-95819
ivanVV
2002-08-16 22:13
2002.08.29
Работа с ini файлом


3-95630
Dim!S
2002-08-07 07:19
2002.08.29
Нумерация записей


3-95698
werr
2002-08-08 17:29
2002.08.29
что за ошибка?


1-95888
VID
2002-08-17 16:12
2002.08.29
Вставка рисунка в RichEdit


1-95737
Novenkij
2002-08-18 18:05
2002.08.29
Когда возникает ошибка