Скачать: CL | DM;

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

← →
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]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c