Файл в константу

← →
navigator1 © (2008-07-25 15:46) [0]

Доброго времени Всем!
Не могу подсунуть файл (тот кот. мне нужно) в константу, если это возможно, еслинет то как это можно былобы воплотить.
Есть константа с данными:
const s="йцукsdrfgt1234...545";
которая далее обрабатывается
var
SL : TStrings;
i : integer;
begin
SL := TStringList.Create;
StrToArrays(s, "ASD", SL);
for i := 0 to SL.Count-1 do
if Pos(Edit1.Text, SL[i]) <> 0 then
Memo1.Lines.Add(SL[i]);
end;

P.S. Я начинающий и код не мой, спасибо добрым людям помогли. Но есть большие файлы где надо делать выборку и в const их незасунешь.
Читал про нетипизированные файлы и нечто похожее было, но прикрутить сам не смог, либо куча ошибок, либо одна и только в

StrToArrays(s, "ASD", SL);

Заранее спасибо.

← →
Тын-Дын © (2008-07-25 15:47) [1]

> StrToArrays(s, "ASD", SL);

Сообщение об ошибке прочитал?

← →
clickmaker © (2008-07-25 15:48) [2]

> Я начинающий и код не мой

мопед не твой, ты просто разместил объяву?

← →
Vlad Oshin © (2008-07-25 17:02) [3]

> StrToArrays(s, "ASD", SL);

это откуда?

а чего вообще сделать надо?

← →
ANB (2008-07-25 17:45) [4]

SL.LoadFromFile();
SL.Text

← →
Правильный$Вася (2008-07-25 17:46) [5]

> подсунуть файл в константу

ты словарь на слове "константа" открой, почитай, подумай

Файл в константу Найти похожие ветки