Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Внизразбить строку Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c