| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

разбить строку [D6, WinXP]

Mr_Jack ©   (2005-01-20 22:19:00) 

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

---

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

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;

---

Knight   (2005-01-20 22:51:00) [2]

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;

---

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

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

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

---

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

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

---

VMcL   (2005-01-20 22:28:00) [5]

AnsiPos()

---

Наверх