Главная страница
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-95740
KPY
2002-08-19 07:42
2002.08.29
В RichEdit можно делать строки разного цвета?


14-95953
Jeer
2002-07-30 21:27
2002.08.29
---|Ветка была без названия|---


14-95967
Вирусописатель :)))
2002-08-02 14:12
2002.08.29
О том как легко писать вирусы.


1-95784
Magystr
2002-08-18 20:32
2002.08.29
Как сделать подсветку синтакса в RichEdit’е?


14-95957
artgamer
2002-08-03 13:20
2002.08.29
Как настроить IPX? (В продолжение вчерашней темы)