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

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

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

Проблема [D6, Win95/98]

Tik © (2002-12-13 06:11:00)
Записал строковую переменную в конец каждой строки файла:

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;

Song (2002-12-13 20:37:00) [1]
Чего у тебя так всё и работает, когда ты закрываешь файл внутри цикла? ;)

BoxTer (2002-12-13 20:31:00) [2]
Фигня, все прекрасно работает с переменной длиной... a assifnfile - не в нем вопрос, вот и не писал...
а почему не спросил где uses, begin, end???

zavdim (2002-12-13 09:45:00) [3]
а в чем вопрос?

Separator (2002-12-13 07:07:00) [4]
Во первых где AssignFile?
Во вторых по методу BoxTer можно работать только если известен тчный размер bas, а если в нем например q3: string, то нифига работать не будет, так как переменная типа string переменной длины.

> Tik

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

BoxTer (2002-12-13 06:49:00) [5]
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;

Наверх

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