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

Проблема   Найти похожие ветки 

← →
Tik   (2002-12-13 06:11) [0]

Записал строковую переменную в конец каждой строки файла:

st.q1 st.q2 st.org_name
100 200 орагнизация1
200 210 орагнизация2
...




Begin
Reset(F1); //открываю файл для чтения
Read(F1,???); //Здесь я должен прочитать из файла строковую переменную. Что мне нужно написать //вместо вопросов?
while not EOLN do //
begin
if st.org_name="RUS" then //И если она(строковая переменная) равно "RUS", то изменить Caption у GroupBox2.
GroupBox2.Caption:="text";
CloseFile(F1);
end;
end;

---

← →
BoxTer ©   (2002-12-13 06:49) [1]

type baz=record
q1,q2,q3:какие_то_типы;
end;
var st:baz;
F1:file of baz;
Begin
Reset(F1);
while not EoF(F1) do begin
Read(F1,st); //Здесь я должен прочитать из файла строковую переменную. Что мне нужно написать //вместо вопросов?
while not EOLN do //
begin
if st.org_name="RUS" then //И если она(строковая переменная) равно "RUS", то изменить Caption у GroupBox2.
GroupBox2.Caption:="text";
CloseFile(F1);
end;
end;
end;

---

← →
Separator ©   (2002-12-13 07:07) [2]

Во первых где AssignFile?
Во вторых по методу BoxTer можно работать только если известен тчный размер bas, а если в нем например q3: string, то нифига работать не будет, так как переменная типа string переменной длины.


> Tik

Открывай как текстовый файл и считывай по строчкам проверяя EOF и каждую строчку анализируй

---

← →
zavdim   (2002-12-13 09:45) [3]

а в чем вопрос?

---

← →
BoxTer ©   (2002-12-13 20:31) [4]

Фигня, все прекрасно работает с переменной длиной... a assifnfile - не в нем вопрос, вот и не писал...
а почему не спросил где uses, begin, end???

---

← →
Song ©   (2002-12-13 20:37) [5]

Чего у тебя так всё и работает, когда ты закрываешь файл внутри цикла? ;)

---

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

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



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