Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi изменение в StringGrid https://www.cyberforum.ru/ delphi-beginners/ thread212939.html
Подскажите кто знает как сделать проверку были ли сделанны изменения в гриде? может какую то переменную типа boolean нужно а как её использовать не пойму :(
DLL и комплексные операции Delphi
library Complex2; // Комплексная арифметика uses SysUtils, Classes, Complex1 in 'Complex1.pas'; {$R *.RES} type
Спасайте Delphi
Помогите пожалуйста нужно срочно на зачёт на метеорологической станции в компьютер введены сведения о среднесуточной температуре за апрель месяц. составить программу которая бы определяла: ...
Delphi Найти среди заданных слов акронимы и вывести их Здравствуйте. Не могу понять суть задания: Составить программу, которая считывает данные, находит среди заданных слов акронимы и выводит в поток вывода. Все акронимы отсортированы внутри группы по... https://www.cyberforum.ru/ delphi-beginners/ thread212867.html
Delphi Canvas https://www.cyberforum.ru/ delphi-beginners/ thread212843.html
помогите подправить програмку,не могу сделать так что бы заяц ровно выводился,ну т.е. что бы у него были глаза,рот и нос unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...
Конструктор, создание своего класса Delphi
Мне дали задание: Создать свой класс TMyString создать поля: для хранения - строки, размерности строки; методы: для записи строки, чтения строки; свойства: чтения/записи строки; Выделить секции...
Бегающий и прыгающий человек Delphi
Помогите написать кто-н, ну или скиньте код, есть человечек, жмешь ентер, он начинает безать перепрыгивая через препятствия вот код на паскеле, надо переделать под делфи: Program L13_10...
Delphi Определить, чем является строка – целым числом, вещественным, датой или текстовой строкой Помогите разобраться.. Это задание на семинар - Написать программу, которая вводит строку символов и определяет, чем является эта строка – целым числом, вещественным, датой или текстовой строкой.... https://www.cyberforum.ru/ delphi-beginners/ thread212795.html
Delphi Сделать прогу решающую любое уравнение методом секущих(к примеру такое cosx-x=0) https://www.cyberforum.ru/ delphi-beginners/ thread212762.html
Создать программу решающую любое уравнение методом секущих(к примеру такое cosx-x=0)
Delphi Работа с файлами 10. Дан файл, содержащий сведения о сдаче сессии студентами группы. Структура записи файла: фамилия и инициалы студента, оценки по четырем экзаменам и пяти зачетам («з» - зачет, «н» - незачет).... https://www.cyberforum.ru/ delphi-beginners/ thread212741.html
23 / 23 / 10
Регистрация: 17.10.2010
Сообщений: 76
22.12.2010, 23:30 0

Многоуровневый список

22.12.2010, 23:30. Показов 2306. Ответов 6
Метки (Все метки)

Ответ

В моей программе есть такое:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
var
 fs:TFileStream;
 i, Count:Integer;
 Str:String[5];
 NewQuest:PQuestion;
begin
 //Показать окно открытия файла
 if not OpenDialog1.Execute then exit;
 
 //Открыть файл для чтения
 fs:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
 
 //Перейти в начало файла и прочитать заголовок
 fs.Seek(0,soFromBeginning);
 fs.read(Str, SizeOf(Str));
 
 //Если заголовок равен тексу "Тест", значит это "вопрос-
 //варианты ответов".
 if Str='Тест' then
  begin
   //Создать новое окно теста
   QuestionResultForm:=TQuestionResultForm.Create(Owner);
 
   //Сохранить имя открытого файла в объекте окна
   QuestionResultForm.FileName:=OpenDialog1.Filename;
 
   //Прочитать имя проекта
   fs.Read(QuestionResultForm.ProjectName, sizeof(QuestionResultForm.ProjectName));
 
   try
    //Прочитать количество вопросов
    fs.Read(Count, sizeof(Count));
 
    //Запустить цикл чтения вопросов
    for i:=0 to Count-1 do
     begin
      //Создаю новую структуру в памяти для вопроса
      NewQuest:=New(PQuestion);
      //Читаю структуру
      fs.Read(NewQuest^, sizeof(TQuestion));
 
      //Добавляю структуру в контейнер
      QuestionResultForm.QuestionList.Add(NewQuest);
 
      //Создаю новый элемент в дереве
      with QuestionResultForm.QuestionTreeView.Items.Add(nil, NewQuest.Name) do
       begin
        ImageIndex:=0;
        Data:=NewQuest;
       end;
     end;
   finally
    //Закрываю файл
    fs.Free;
   end;
  end;
end;


Вернуться к обсуждению:
Многоуровневый список
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2010, 23:30

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Многоуровневый список
Люди добрые помогите, как сделать форму с выпадающими списками определенных значений. Например...

многоуровневый список
Здравствуйте! мне нужен многоуровневый список. этот список потом будет обрабатываться в новый...

Многоуровневый список
Здравствуйте! Как сделать многоуровневый список? Имеется база, внутри базы 4 поля: id, name,...

Многоуровневый список
Подскажите как реализовать нумерацию строк многоуровневым списком Вот задача была поставлена вот...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.