Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Высота текста TextRect https://www.cyberforum.ru/ delphi-beginners/ thread2249939.html
Пишу текст на канве в определенную область через TextRect с переносом слов, если не влезли в ширину рект. Пытаюсь определить влез ли текст в область по высоте, проверяю Canvas.TextWidth но он выдает высоту однй строки, а не всего текста. Как определить эту высоту, влез ли текст в рект или нет? 		Delphi Расчет стоимости поставки программ системы «1С: Предприятие 8»
Помогите пожалуйста с задачкой.Программирование изучать начала совсем недавно ,поэтому совсем не сильна в этом. Но нужно написать программу : Необходимо написать программу, которая бы при заданном количестве рабочих мест определяла необходимый состав приобретаемых лицензий при минимизации общей стоимости покупки. Исходные данные : Однопользовательская поставка программы «1С:...
Delphi Многопоточность https://www.cyberforum.ru/ delphi-beginners/ thread2249891.html
Вообщем есть код 1 потока - логин в аккаунт, но мне нужно сделать чтобы было сразу несколько потоков и проверялись несколько аккаунтов за раз, не нужно пожалуйста кидать мне ссылки на сайты, я кучу сайтов облазил и ничего дельного не вывез. вообще проблема в том что я не понимаю как создавать несколько компонентов idhttp; Есть такой код, но при выполнении потока я крашу и заново создаю idhttp.... 		Delphi Многопоточная сортировка в delphi Друзья, создаю массив рандомных чисел, либо же свой набор чисел, в общем, его нужно отсортировать многопоточной сортировкой. Как это реализовать? помогите, пожалуйста https://www.cyberforum.ru/ delphi-beginners/ thread2249882.html
Delphi Метод Гаусса с выбором главного элемента
Здравствуйте. В программировании я очень слабый но это задание надо как-то сделать. Дословное имя "Системы уравнений. Выбор главного элемента и приведение матрицы к диогональному виду". Я нашел прогу с методом Гаусса с выбором главного элемента. У меня ошибка была в type slau и line , ну и еще я не понимаю как сделать TFORM.(change,forth,back). Исправьте пожалуйста где ошибки или объясните, ну... 		Delphi В Stringgrid найти и вывести самое часто встречающееся число https://www.cyberforum.ru/ delphi-beginners/ thread2249735.html
Подскажите пожалуйста. Вот заполняю stringgrid случайными числами и нужно в одном столбце найти и вывести частно встречаемое число. Как это сделать? Заранее огромное спасибо
Delphi Сравнение элементов одномерных массивов https://www.cyberforum.ru/ delphi-beginners/ thread2249725.html
Помогите пожалуйста написать программу которая будет сравнивать массив, состоящий из слов с массивом из знаков препинания. Например, я пишу строку со знаками препинания. Выводиться должны только слова из этой строки. 		Матрица в String Grid Delphi
помогите пожалуйста написать программу, которая бы с помощью генератора случайных чисел формировала матрицу 5х4 и выводила бы в String Grid
Delphi Превратить массив X по следующему правилу Превратить массив X по следующему правилу: все отрицательные элементы массива перенести в начало, а все остальные - в конец, сохраняя исходное взаимное расположение, как среди отрицательных, так и среди других элементов. https://www.cyberforum.ru/ delphi-beginners/ thread2249704.html Delphi Const как поменять значение через Edit https://www.cyberforum.ru/ delphi-beginners/ thread2249611.html
Как сделать чтобы параметры LAT, RUS, LengthLAT, LengthRUS, LengthNUM, MAX_NUMBER принимали значения с Edit. const LAT = 'test1'; // массив латинских прописных букв RUS = 'test2'; // массив русских строчных букв LengthLAT = 2; // кол-во латинских букв LengthRUS = 7; // кол-во русских букв LengthNUM = 1; // кол-во цифр ...
Delphi Реализация "Числовой проверки" в простейшем текстовом редакторе
Приветствую! Возникла проблема с реализацией функции "Числовая проверка" в простейшем блокноте. Мы имеем TMemo, в который пользователь вводит текст. При нажатии на кнопку "Числовая проверка" непосредственно в TMemo должен выделится ПЕРВЫЙ найденный символ, который не соответствует следующим символам: цифра, пробел и знак тире. Если таковых нет, должно быть выведено ShowMessage() с текстом об... 		Delphi Использование процедур и функций https://www.cyberforum.ru/ delphi-beginners/ thread2249554.html
9 / 9 / 12
Регистрация: 17.01.2018
Сообщений: 281
0

Как снять атрибут "Только для чтения" у файла в TSaveDialog? - Delphi - Ответ 12408386

21.05.2018, 10:37. Показов 1875. Ответов 1
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Как это реализовать? Как перехватить до того, как SaveDialog выдаст ошибку?
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

var
  i, j: integer;
  doc: file;
begin
  SaveDialog1 := TSaveDialog.Create(self);
  SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName) + 'Templates\' + IntToStr(n) + 'x' + IntToStr(n) + '\User templates\';
  if SaveDialog1.Execute then
    begin
      SetFileAttributes(PWideChar(SaveDialog1.FileName), faNormal); //до этого момента программа не доходит
      AssignFile(doc, SaveDialog1.FileName); //так как SaveDialog выдает ошибку об атрибуте только для чтения
      try
        Rewrite(doc);
      except
        ShowMessage('Невозможно перезаписать файл');
        exit;
      end;
      for i := 0 to n - 1 do
        for j := 0 to n - 1 do
          begin
            BlockWrite(doc, life[i, j], 1);
            BlockWrite(doc, age[i, j], 1);
          end;
      CloseFile(doc);
      SetFileAttributes(PWideChar(SaveDialog1.FileName), faReadOnly);
    end
  else
    abort;
  SaveDialog1.Free;
  StaticText2.SetFocus;
  DrawGrid1.Refresh;
  CheckerOfCells;
end;


Вернуться к обсуждению:
Как снять атрибут "Только для чтения" у файла в TSaveDialog? Delphi
Миниатюры
Как снять атрибут "Только для чтения" у файла в TSaveDialog?  
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 21.05.2018, 10:37
Готовые ответы и решения:

Как снять атрибут папки "только для чтения" в Windows 8 ?
Добрый день ! Подскажите, как снять атрибут "только для чтения" для папок и вложенных в них файлов...

Снять атрибут "только для чтения" на флэхе
Сразу отмету банальные ответы типа "сдвинь ползунок" или "перепрошей" - атрибут поставлен не на...

Присваивается атрибут только для чтения
Всем привет! Честно говоря, не знаю где размещать данную тему. Модераторам приношу извинения, если...

Атрибут только для чтения при переписывании с CD
Доброго времени суток! подскажите, может есть такая настройка в Windows, чтобы снимались атрибуты...

На все папки установился атрибут только для чтения
Здравствуйте,помогите пожалуйста, не так давно появилась проблема с тем что не могу ничего скачать,...

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

Как снять с папки - галку "Только для чтения"
Подскажите с решением непростой проблемы. Пытаюсь в свойствах папки - снять эту галочку - ноль...

Атрибут только для чтения появляется снова, после выключения
Категорически всех приветствую! В общем, у меня есть папка, где нужно убрать атрибут только для...

К файлу после сохранения присваивается атрибут только для чтения
Всем привет! Имеется простая локальная сеть. Имеется NAS4Free сервер. Стали появляться файлы к...

Как написать программу в ассемблере, которая переименовывает файл и ставит атрибут "только для чтения"
Нужно написать программу, которая переименует мой файл и установит нанем атрибут "только для...

Для всех файлов, кроме текстовых, установить атрибут "Только для чтения", а для текстовых — атрибут "Архивный"
Здравствуйте, Очень прошу помочь написать мне программу. Задание:В заданной папке для всех файлов,...

Переименовать текстовый файл и установить на нем атрибут "Только для чтения"
В ассемблере ничего не понимаю просто сказали написать программу, помогите кто сможет буду...

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