Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Вниз

Помогите записать текст из фаила в массив.   Найти похожие ветки 

 
Maks_   (2008-03-10 19:16) [0]

Уваж.мастера! препад задал задачу - нужно сделать тест, где вопросы и варианты ответов к каждому из них читались бы из фаила. подскажите как это реализовать.
например =
.....
V[1]:= "Что такое селитебная зона?              ";
A[1]:= "1) Зона находящиеся на землях несельскохозяйственного назначения или не пригодных для сельского хозяйства, либо на сельскохозяйственных землях худшего качества. ";
B[1]:= "2) Зона для размещения баз и складов, трамвайных и метродепо, троллейбусных и автобусных парков и т.п.. ";
C[1]:= "3) Зона для размещения жилых районов, общественных центров (административных, научных, учебных, медицинских, спортивных и других), зелённых насаждений общего пользования.";
D[1]:= "4) Зона для размещения промышленных предприятий и связанных с ними объектов. ";

O[1]:="3" // ПРАВИЛЬНЫЙ ОТВЕТ
////второй вопрос теста==

V[2]:= "Что такое горизонталь? ";

A[2]:= "1) Линия позволяющая различить основные формы рельефа: хребет, вершину, лощину, овраг и т.д.. ";
B[2]:= "2) Проекция на горизонтальную плоскость линии между одноименными отметками. ";
C[2]:= "3) Условная линия, изображающая на плане проекцию воображаемой линии пересечения естественного рельефа с горизонтальными плоскостями.";
D[2]:= "4) Линия между смежными отметками (горизонталями) отнесённая на горизонтальную плоскость";

O[2]:="3"  // ПРАВИЛЬНЫЙ ОТВЕТ
и тд..  15   вопросов..)))))
=====
в данном случае надо чтобы в строковые массивы V,A,B,C,O - данные были записаны из тектового фаила..(  подскажите как это сделать.


 
Сергей М. ©   (2008-03-10 19:43) [1]


> подскажите как это сделать


С помощью, например, класса TStringList


 
Kolan ©   (2008-03-10 22:19) [2]

Ini Файл
В Delphi TIniFile + F1



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

Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
2-1204874909
Wint
2008-03-07 10:28
2008.04.06
Как передать параметры внешнему приложению DOS и запустить его?


2-1205432829
nstur
2008-03-13 21:27
2008.04.06
XPMan


6-1183571273
Temp_Yuriy
2007-07-04 21:47
2008.04.06
ftp сервер


2-1205233899
Washington
2008-03-11 14:11
2008.04.06
DrawText


15-1203744981
Dmitry S
2008-02-23 08:36
2008.04.06
Имитация файла.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский