разбор строки - Помощь студентам

D_e_n_n · 03.03.2011, 12:08

помогите разобрать строку
Пр [Ф1] 0.4 кВ, ТП-20-4-7"б/н".
на:
1) Ф1
2) ТП
3)20
4)4
5)7

D_e_n_n · 03.03.2011, 12:39

нашел Ф1

procedure TForm1.Button1Click(Sender: TObject);
var sl1,sl2:TStringList;
fider,Npc,s3:string;
i,j:integer;
begin
fider := copy(edit1.Text, 5, pos(']',edit1.Text)-5);
edit2.Text:=fider;

end;

end.

D_e_n_n · 03.03.2011, 15:22

сам разобрался

03.03.2011, 12:08	#1
D_e_n_n Пользователь Регистрация: 29.01.2008 Сообщений: 30	разбор строки помогите разобрать строку Пр [Ф1] 0.4 кВ, ТП-20-4-7"б/н". на: 1) Ф1 2) ТП 3)20 4)4 5)7

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Чтение строки данных и разбор на отдельные части	}\|{opa KopHeB	Помощь студентам	2	27.01.2011 23:28
Разбор строки	DenisVoronov	Помощь студентам	11	18.11.2010 11:18
Разбор строки...	CodeExpert	Помощь студентам	3	23.02.2010 18:16
разбор строки на части	Wi1D	Общие вопросы C/C++	7	27.12.2009 23:31
Разбор строки GPS	TIT0	Общие вопросы C/C++	1	08.03.2009 18:44

03.03.2011, 12:39	#2
D_e_n_n Пользователь Регистрация: 29.01.2008 Сообщений: 30	нашел Ф1 procedure TForm1.Button1Click(Sender: TObject); var sl1,sl2:TStringList; fider,Npc,s3:string; i,j:integer; begin fider := copy(edit1.Text, 5, pos(']',edit1.Text)-5); edit2.Text:=fider; end; end.

03.03.2011, 15:22	#3
D_e_n_n Пользователь Регистрация: 29.01.2008 Сообщений: 30	сам разобрался