Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Функция random Не хотелось создавать целую тему ради этого, но все же. За дэльфи сижу всего второй раз. Собственно программа показывает исходя из значений сторон существует ли треугольник. Мне нужно для второй кнопки сделать чтобы значение a,b,c выбирались рандомно. (целые числа от 0 до 100) unit Unit1; interface uses https://www.cyberforum.ru/ delphi-beginners/ thread247240.html Delphi Использование нескольких if
if (f=0) and(d=0) and(line1>0) and (line2<0) then label8.Caption:='9'; if (f=0) and (d=0) and (line1<0) and (line2>0) then label8.Caption:='10'; if (d=1) and (line1<0) and (line2<0) and (f=0) then label8.Caption:='1'; canvas.TextOut(x001, y001, inttostr(1)); if (d=1) and (line1<0) and (line2<0) and (f=1) then label8.Caption:='2'; canvas.TextOut(x001, y001, inttostr(2));
Delphi Поиск в документе Excel можно ли с помощью Delphi встроить поиск в excel документе? и как это сделать... заранее спасибо https://www.cyberforum.ru/ delphi-beginners/ thread247208.html Delphi Обработка последовательности символов https://www.cyberforum.ru/ delphi-beginners/ thread247173.html
№1 Во введенной строке символов заменить каждую внутреннюю группу пробелов одним пробелом. Если указанных групп нет, то оставить последовательность без изменений. №2 Зашифровать введенную строку символов с возможность последующей расшифровки.
Delphi Найти ошибки в коде калькулятора
Всем привет. Совсем недавно начал изучать дельфи , и столкнулся с такой проблемой. Решил сделать небольшой калькулятор , вроде все правильно , но почему то пишет некоторые ошибки Unit1.pas(176): Undeclared identifier: '2' Unit1.pas(180): Undeclared identifier: '3' Unit1.pas(184): Undeclared identifier: '4' 2,3,4 это параметры переменной mode , которую использовал для того , что бы оно...
Delphi Массив уже все перепробовала..но не получается..помогите пожалуйста..очень нужно.. При запуске формы заполнить массив из 10 чисел случайными числами в диапазоне от 1 до 20.Проследить , чтобы числа не повторялись. На форме две кнопки .По нажатию первой из них в десять Label-ов на появляющейся панели выводится весь массив , по нажатию второй- в отдельно стоящий Label выводятся числа от максимального до... https://www.cyberforum.ru/ delphi-beginners/ thread247086.html
Delphi Checkbox1 на panel1 https://www.cyberforum.ru/ delphi-beginners/ thread247033.html
как программно при создании формы,создать панель и разместить на панели checkbox1?
Delphi Динамический масив
долго рылся в интернете нашел даже динамическое изменение констант(и такое бывает) но в обшем то мне нужен пример например дан масив mas: array of integer и нужно чтобы юзер ввел n и затем заполнил масив
Delphi Классы(наследование) На поверхности,которая наклонена к горизонтали лежит тело в виде прямоугольника с определенными размерами. Как правильно написать программу с наследованием классов? Вот что я попыталась сделать,но она рисует линию без прямоугольника... ПОмогите,please!!! type Point=class x,y:integer; constructor Init(m,n:integer); procedure Show; virtual; end; https://www.cyberforum.ru/ delphi-beginners/ thread246968.html Delphi Описать структуру с именем student помогите решить в делфи пожалуйста!!!нужно описать структуру с именем student,содержащие следующие поля: фамилия номер группы успеваемость(массив из эл-ов) написать программу выполняющие действия: ввод с клавиатуры данных в массив состоящий из 5 структур типа student; вывод на дисплей фамилей и номер группы для всех студентов, имеющих хотя бы одну оценку 5/ https://www.cyberforum.ru/ delphi-beginners/ thread246936.html
Ошибка в вычислениях Delphi
Вот почему, начиная с 31вой строчки в листбоксе идёт такая фигня: сначала отрицательное число, а потом вообще нули? procedure TForm1.FormCreate(Sender: TObject); begin a:=1 for i:=1 to 10000 begin ListBox1.Items.Add(inttostr(a)); a:=a*2; end;
Delphi Удаление данных из stream https://www.cyberforum.ru/ delphi-beginners/ thread246913.html
как удалить из stream файла данные,например с позиции 324 до позиции 694?
13104 / 5885 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
24.02.2011, 02:03 0

файлы - Delphi - Ответ 1395885

24.02.2011, 02:03. Показов 559. Ответов 5
Метки (Все метки)

Ответ

stydentka, чтобы обрабатывать информацию надо знать, как она представлена. anonimus, это имел в виду. Т. е., имя книги и количество глав в одной строке файла записаны? Или на разных строках? Если в одной строке - тогда надо выделять из строки название и количество.
Общий план действий такой:
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
const
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
var
  F1, F2 : TextFile;
  Sl : TStringList;
  S, SName : String;
  i, Num : Integer;
begin
  Sl := TStringList.Create;
  AssignFile(F1, Fn1);
  Reset(F1);
  while not Eof(F1) do begin
    Readln(F1, S);
 
    //Здесь мы каким-то образом выделяем из прочитанной
    //строки S название книги SName и количество глав Num.
    //...
 
    //Добавляем полученные сведения в список
    //в виде пары: (строка, объект).
    Sl.AddObject(S, Pointer(Num));
  end;
 
  CloseFile(F1);
 
  //Здесь должна быть сортировка списка Sl
  //по значениям, записанным в качестве объектов.
  //...
 
  //После сортировки записываем данные во второй файл.
  AssignFile(F2, Fn2);
  Rewrite(F2);
  for i := 0 to Sl.Count - 1 do begin
    if i > 0 then Writeln(F2);
    SName := Sl[i];
    Num := Integer(Sl.Objects[i]);
    Write(F2, SName, '; ', Num);
  end;
 
  CloseFile(F2);
end;


Вернуться к обсуждению:
файлы Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2011, 02:03
Готовые ответы и решения:

Когда я передаю файлы через TClientSocket & TServerSocket мультимедийные файлы приходят битыми
Всем здравствуйте! В общем, я решил сделать удалённый захват экрана (не спрашивайте зачем) и...

Файлы
не могу открыть несколько файлов по очереди чтобы считать с них инфо точнее не знаю как) ...

Файлы
Здравствyйте. Имеются 2 типизированных файла. Нужно создать журнал. Чтоб отчет за день состоящий из...

Файлы
Подскажите как лучше всего хранить например историю посещений в веббраузере ,там должны быть 2 поля...

5
24.02.2011, 02:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2011, 02:03
Помогаю со студенческими работами здесь

Файлы
Как найти количество файлов в папке и их имена?

Файлы
Дан текстовый файл f. Записать в перевернутом виде строки файла f в файл g. Порядок строк в файле g...

Файлы
Дан файл f, компоненты которого являются символами. Получить копию файла в файле g, не используя...

файлы
procedure TForm6.Button1Click(Sender: TObject); var x1:system.text; begin ...

Файлы
Можно ли в делфи\паскале вызывать файл через строку? Мне нужно создать 1000+ текстовых файлов...

inc файлы
Всем привет, подскажите пожалуйста как работать с файлами *.inc. искал в гугле но он только сказал...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru