|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2007, 21:52 | #1 |
Подтвердите свой е-майл
Регистрация: 15.07.2007
Сообщений: 72
|
Разделение строки
procedure TForm1.Button2Click(Sender: TObject);
var sim,param:array [1..127] of string; pam,rez:array [0..127] of integer; str,Tstr,tak:string; Its,dov,nom,flag,mnog,dli:integer; begin str:=edit1.Text; dov:=Length(str); for Its:=1 to dov do begin sim[its]:=str[Its]; end; edit2.Text:=''; for Its:=1 to dov do begin edit2.Text:=edit2.Text+sim[Its]; end; Tstr:=str; rez[0]:=1; flag:=0; while AnsiPos(';',Tstr)<>0 do begin flag:=flag+1; mnog:=flag-1; pam[flag]:=AnsiPos(';',Tstr); rez[flag]:=pam[flag]+mnog; delete (Tstr,pam[flag],1); end; edit3.Text:=Tstr; edit4.Text:=''; for Its :=1 to 20 do begin edit4.Text:=edit4.Text+inttostr(pam[its]); //) end; end; В Edit1.text находитса строка которая содержит несколько ; мне нада записать в массив param части строк находящиеся в едите и разделиниї ; етим знаком . Например 123;56;7 --> 123 56 7 wdr;wd;dw --> wd wd dw В массиве Rez находятся цифри котороие показуют под каким номером символи ; как зделать дальше? Пробивал в масив запихать dli:=rez[flag]-rez[flag-1]; param[flag-1]:=copy(str,rez[flag],dli); но непомогает. Коротко.Есть строка есть под какими номерами расположени знаки ';' нада записать то шо между етими знаками в масив P.S. В исходнику есть много ненужных действий,ето для проверки. |
31.10.2007, 08:59 | #2 | |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Цитата:
Код:
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" Последний раз редактировалось AlDelta; 31.10.2007 в 09:02. |
|
31.10.2007, 09:05 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ребята, для этого есть TStringList со своим DelimitedText
procedure TForm1.Edit1Change(Sender: TObject); begin ListBox1.Items.Delimiter:=';'; ListBox1.Items.DelimitedText:=Edit1 .Text; end; Или это контрольная?
I'm learning to live...
|
31.10.2007, 21:27 | #4 |
Подтвердите свой е-майл
Регистрация: 15.07.2007
Сообщений: 72
|
AlDelta спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
разделение формы на 4 части | za4ot | Общие вопросы Delphi | 2 | 03.07.2008 12:12 |
Разделение файла | Antik163RUS | Помощь студентам | 9 | 01.07.2008 12:23 |
Разделение txt файла на несколько htm | Tiger16 | Фриланс | 3 | 17.04.2008 22:40 |
Открытие файла,разделение. | Kukkk | Общие вопросы Delphi | 3 | 20.09.2007 18:53 |
Разделение игрового поля на сетку... | RKS | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 3 | 23.08.2007 21:04 |