Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.06.2012, 12:24
KaLLIaK KaLLIaK вне форума
Прохожий
 
Регистрация: 28.05.2012
Сообщения: 6
Репутация: 10
Радость Разделение строки (Эдит), на несколько (Эдит2-4)

Имеется строка символов, разделенные запятыми и пробелами.
текст1,(пробел)Текст2,(пробел)текст3
Записана данная строка в Edit.

Требуется разделить её на несколько Edit'ов.
То есть Edit1 полная запись. Edit2 Текст1(без запятой и пробела), Edit3 Текст2(без запятой и пробела) Edit4 Текст3(без запятой и пробела).
Ответить с цитированием
  #2  
Старый 03.06.2012, 16:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

много раз спрашивалось и отвечалось:
Код:
var
  AStrings: TStrings;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.Text:=StringReplace(Edit1.Text, ', ', #13#10, [rfReplaceAll, rfIgnoreCase]);
    Edit2.Text:=AStrings[0];
    Edit3.Text:=AStrings[1];
    Edit4.Text:=AStrings[2];
  finally
    AStrings.Free;
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
KaLLIaK (03.06.2012)
  #3  
Старый 03.06.2012, 18:44
KaLLIaK KaLLIaK вне форума
Прохожий
 
Регистрация: 28.05.2012
Сообщения: 6
Репутация: 10
По умолчанию

отлично работает.

только если вдруг оказывается меньше 3, выдает ошибку.
Каким способом, можно при избытке или нехватке добавлять эдиты.



2 вопрос, имеется поисковик по txt файлу Поиск.rar. можно ли сделать что-бы искал во всех txt файлах в заданной папке.

3 вопрос, имеется в txt файле записи: Текст231 (пробел) Путь. Можно ли после того как поисковик нашел Текст231 остальные символы в строке распознал как путь на конце которого ждет установщик)
Ответить с цитированием
  #4  
Старый 03.06.2012, 18:59
robt robt вне форума
Активный
 
Регистрация: 17.02.2011
Сообщения: 297
Репутация: -1806
По умолчанию

вот какие тебе нафиг драйверы если такие вопросы задаеш?
Ответить с цитированием
  #5  
Старый 03.06.2012, 19:09
KaLLIaK KaLLIaK вне форума
Прохожий
 
Регистрация: 28.05.2012
Сообщения: 6
Репутация: 10
По умолчанию

Знаешь ответы на эти вопросы?
Смысл писать такие сообщение?!
Знаешь напиши, не знаешь или считаешь ниже своего достоинства помочь, промолчи.
Ответить с цитированием
  #6  
Старый 03.06.2012, 20:53
PS11011010 PS11011010 вне форума
Новичок
 
Регистрация: 30.03.2012
Сообщения: 98
Репутация: 282
По умолчанию

Цитата:
Сообщение от KaLLIaK
2 вопрос, имеется поисковик по txt файлу Вложение 3177. можно ли сделать что-бы искал во всех txt файлах в заданной папке.
Поиск по папке знаешь как делать? Когда найдешь все, иди по списку и применяй свою процедуру на каждом файле. Иными словами ДА, можно. И третий вопрос тоже разрешим.
Читай умные книжки. Особенно по алгоритмизации.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:28.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025