![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Имеется строка символов, разделенные запятыми и пробелами.
текст1,(пробел)Текст2,(пробел)текст3 Записана данная строка в Edit. Требуется разделить её на несколько Edit'ов. То есть Edit1 полная запись. Edit2 Текст1(без запятой и пробела), Edit3 Текст2(без запятой и пробела) Edit4 Текст3(без запятой и пробела). |
|
#2
|
||||
|
||||
|
много раз спрашивалось и отвечалось:
Код:
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
|
|||
|
|||
|
отлично работает.
только если вдруг оказывается меньше 3, выдает ошибку. Каким способом, можно при избытке или нехватке добавлять эдиты. 2 вопрос, имеется поисковик по txt файлу Поиск.rar. можно ли сделать что-бы искал во всех txt файлах в заданной папке. 3 вопрос, имеется в txt файле записи: Текст231 (пробел) Путь. Можно ли после того как поисковик нашел Текст231 остальные символы в строке распознал как путь на конце которого ждет установщик) |
|
#4
|
|||
|
|||
|
вот какие тебе нафиг драйверы если такие вопросы задаеш?
|
|
#5
|
|||
|
|||
|
Знаешь ответы на эти вопросы?
Смысл писать такие сообщение?! Знаешь напиши, не знаешь или считаешь ниже своего достоинства помочь, промолчи. |
|
#6
|
|||
|
|||
|
Цитата:
Читай умные книжки. Особенно по алгоритмизации. |