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.

2 Best Before 2024 and
TTCustomDelphiMaster

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

← →
Best Before 2024 (2002-10-08 19:58) [5]

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

2 простых, но душевных вопроса Найти похожие ветки