Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Файл в константу [D7, XP]

navigator1 © (2008-07-25 15:46:00)
Доброго времени Всем!
Не могу подсунуть файл (тот кот. мне нужно) в константу, если это возможно, еслинет то как это можно былобы воплотить.
Есть константа с данными:
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 17:46:00) [1]

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

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

ANB (2008-07-25 17:45:00) [2]
SL.LoadFromFile();
SL.Text

Vlad Oshin (2008-07-25 17:02:00) [3]

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

это откуда?

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

clickmaker (2008-07-25 15:48:00) [4]
> Я начинающий и код не мой

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

Тын-Дын (2008-07-25 15:47:00) [5]

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

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

Наверх

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