|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.02.2016, 12:43 | #11 | |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
Цитата:
Код:
Код:
Код:
Терпение!Дежурный экстрасенс скоро свяжется с вами!
|
|
04.02.2016, 12:49 | #12 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
Всем спасибо!А как ускорить процесс если большое количество строк?Программа зависает
Или какнить прогресс бар поставить можно? |
04.02.2016, 12:52 | #13 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Покажи код, как сделал. И исходные данные для обработки. И условия задачи. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
04.02.2016, 12:54 | #14 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer; begin for i:= 0 to Memo1.Lines.Count - 1 do Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i])- 1); end; Нужно просто все удалить после запятой Последний раз редактировалось mitiay; 04.02.2016 в 12:58. |
04.02.2016, 12:58 | #15 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
В StringList делай, не будет зависать
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
04.02.2016, 13:00 | #16 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
04.02.2016, 13:01 | #17 |
Форумчанин
Регистрация: 12.02.2011
Сообщений: 808
|
удалить все после первой запятой
Код:
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Последний раз редактировалось Dvoishnik; 04.02.2016 в 13:10. Причина: опять все не так сделал все исправил |
04.02.2016, 13:07 | #18 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Аффтар, я от тебя исходные данные дождусь или забить на это всё?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
04.02.2016, 13:09 | #19 | |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
Цитата:
|
|
04.02.2016, 13:10 | #20 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
procedure TForm1.Button2Click(Sender: TObject);
Код: var i: Integer; begin for i:= 0 to Memo1.Lines.Count - 1 do Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i])- 1); end; вот я вот так делаю |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удалить все, что после символа | fijiisland | Microsoft Office Excel | 8 | 31.03.2017 16:04 |
Как удалить все строки кроме первой, после автофильтра | myosotis | Microsoft Office Excel | 2 | 30.01.2013 19:31 |
Делфи. Удалить все лова после 5-го | serhan | Помощь студентам | 3 | 09.02.2012 13:40 |
как удалить знаки после запятой | ukrman | Microsoft Office Excel | 11 | 03.02.2012 17:22 |
Разделение чисел на до запятой и после запятой | msser | Microsoft Office Excel | 8 | 23.10.2009 11:57 |