Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз2 простых, но душевных вопроса Найти похожие ветки
← →
Феликс (2002-10-08 19:07) [0]1)Ситуация следующая:
Есть в combobox список txt файлов
1.txt
2.txt
3.txt
....
6.txt
В txt файлах есть определенная информация. Эту самую информацию нужно запихнуть в richedit. Причем не из одного файла, а из всех файлов, что в combobox.
Очень нужен исходник.
2)Есть ли альтернатива pos()? Дело в том, что pos() вещь хорошая, но она реагирует на регистр, а это есть плохо.
← →
Best Before 2024 (2002-10-08 19:13) [1]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;
← →
Best Before 2024 (2002-10-08 19:25) [2]Исправленный текст и работает :)
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;
← →
TTCustomDelphiMaster (2002-10-08 19:31) [3]F1 - AnsiLowerCase, LowerCase, AnsiUpperCase, UpperCase.
← →
Феликс (2002-10-08 19:56) [4]2 Best Before 2024 and
TTCustomDelphiMaster
От лица советского командования и от себя лично благодарю ВАС.
← →
Best Before 2024 (2002-10-08 19:58) [5]Рады стараться!
Когда же вам памятник-то восстановят? :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c