Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

разбить строку   Найти похожие ветки 

 
Mr_Jack   (2005-01-20 22:19) [0]

Есть строка "546332,435234" храниться в memo,надо сделать так чтобы,до запятой цифры записались в memo1,а после запятой в memo2.заранее спасибо.


 
VMcL ©   (2005-01-20 22:28) [1]

AnsiPos()


 
Mr_Jack   (2005-01-20 22:32) [2]

VMcL не мог бы ты привести маленький пример как AnsiPos() пользоваться.а то некак не догоню.


 
NE_Parovoz   (2005-01-20 22:44) [3]

Mr_Jack
pos(",",String):int (позиция "," в String"е)
copy(String,int,int):String (копирует нужный кусок)

З.Ы. Почитай что нибуть(хоть Help в Delphi) чтобы таких вопросов не задавать


 
Knight ©   (2005-01-20 22:51) [4]

procedure TForm1.Button1Click(Sender: TObject);
var i,P,L:Integer;
begin
 for i:=0 to Memo.Lines.Count-1 do begin
   L:=Length(memo.Lines[i]);
   P:=Pos(",",memo.Lines[i]);
   Memo1.Lines.append(Copy(memo.Lines[i],1,P-1));
   Memo2.Lines.append(Copy(memo.Lines[i],P+1,L-P));
 end;
end;


 
PZ   (2005-01-21 07:40) [5]

procedure TForm1.Button2Click(Sender: TObject);
Var
 S : String;
 P : Integer;
begin
 S := "546332,435234";
 P := Pos(",", S);
 Memo1.Lines.Add(Copy(S, 1, P-1));
 Delete(S, 1, P);
 Memo2.Lines.Add(S);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.025 c
3-1105039431
MNz
2005-01-06 22:23
2005.02.06
хранение DOC формата


14-1105696258
Семен Сорокин
2005-01-14 12:50
2005.02.06
Где найти тесты (Delphi, MSSQL) для приема на работу.


3-1104821945
Нуждающийся в помощи
2005-01-04 09:59
2005.02.06
Использование IB в глобальных сетях


1-1106635693
Артем К.
2005-01-25 09:48
2005.02.06
Подскажите, как напечатать графики 3-х TChart(ов) на одном листе?


14-1105800557
Кирилл
2005-01-15 17:49
2005.02.06
Глюченый шрифт