| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

2 простых, но душевных вопроса

Феликс ©   (2002-10-08 19:07:00) 

1)Ситуация следующая:

Есть в combobox список txt файлов
1.txt
2.txt
3.txt
....
6.txt

В txt файлах есть определенная информация. Эту самую информацию нужно запихнуть в richedit. Причем не из одного файла, а из всех файлов, что в combobox.
Очень нужен исходник.

2)Есть ли альтернатива pos()? Дело в том, что pos() вещь хорошая, но она реагирует на регистр, а это есть плохо.

---

Best Before 2024   (2002-10-08 19:58:00) [1]

Рады стараться!
Когда же вам памятник-то восстановят? :)

---

Феликс   (2002-10-08 19:56:00) [2]

2 Best Before 2024 and
TTCustomDelphiMaster

От лица советского командования и от себя лично благодарю ВАС.

---

TTCustomDelphiMaster   (2002-10-08 19:31:00) [3]

F1 - AnsiLowerCase, LowerCase, AnsiUpperCase, UpperCase.

---

Best Before 2024   (2002-10-08 19:25:00) [4]

Исправленный текст и работает :)

procedure TForm1.Button1Click(Sender: TObject);
var SL : TStringList;
i : Integer;
begin
SL := TStringList.Create;
try
for i := 0 to ComboBox1.Items.Count - 1 do
begin
SL.LoadFromFile(ComboBox1.Items[i]);
RichEdit1.Lines.AddStrings(SL);
end;
finally
SL.Free;
end;
end;

---

Best Before 2024   (2002-10-08 19:13:00) [5]

var SL : TStringList;
begin
for i := 0 to ComboBox1.Count - 1 do
begin
SL := TSTringList.Create;
try
SL.LoadFromFile(ComboBox1.Items[i]);
RichEdit1.AddStrings(SL);
finally
SL.Free;
end;
end;
end;

---

Наверх