Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Как вывести большее Люди подскажите пожалуйста Как вывести большее из N количества чисел? https://www.cyberforum.ru/ delphi-beginners/ thread427010.html	Delphi Установка Background в PaintBox Как реализовать PaintBox с Background? Дан компонент TImage и TPaintBox. TImage - фон TPaintBox. Надо разместить компоненты друг на друге (задать координаты,ширину и высоту картинки как у TPaintBox) и сделать картинку видимой. TPaintBox постоянно изменяется,если я просто ставлю картинку под Paint, то её просто напросто не видно,помогите пожалуйста. Заранее благодарю. Добавлено через 1...
Delphi Есть ли отличие OpenGL в DELPHI и C++ ? Я собераюсь учить OpenGL в delphi, если я ее освою то потом когда перейду на C++ мне надо будет снова учить OpenGL или там одно и тоже, как WinAPI в разных языках один и тотже.? https://www.cyberforum.ru/ delphi-beginners/ thread426970.html	Delphi Как на одну кнопку сделать несколько процедур https://www.cyberforum.ru/ delphi-beginners/ thread426953.html Подскажите пожалуйста: Как на одну кнопку сделать несколько процедур? Я сделала два ComboBox1.Text='OLD' then begin и ComboBox1.Text='NEW' then begin У меня выдаёт ошибки при компиляции. Выдаёт ошибку на if , на начало строки if ComboBox1.Text='NEW' then begin procedure TForm1.Button2Click(Sender: TObject); begin OpenCOMPort; if ComboBox1.Text='OLD' then begin If Edit3.Text =''...
Массивы Delphi 1. Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов могут быть любые графические символы. В слове наименьшие длины удалить все гласные и подсчитать их количество в этом слове. 2. Вычислить Y(n)= ________1_________ n+________1________ (n-1)+_____1_______ (n-2)+___1_____ … …. …+___1___ 1+1/2....	Delphi Перенос данных с одной кнопки на другую https://www.cyberforum.ru/ delphi-beginners/ thread426857.html При переносе данных с одной кнопки на другую код перестаёт работает, программа не компилируется Если всё стереть и вручную написать всё тоже самое - всё работает, программа компилируется Подскажите пожалуйста , в чём проблема? что может быть? Заранее спасибо за помощь begin OpenCOMPort; if ComboBox1.Text='VAZ VDO' then begin WBuff:=$11;WBuff:=$11;WBuff:=$11;WBuff:=$11;
Delphi Все члены массива с четными номерами домножить на значение индекса максимального элемента https://www.cyberforum.ru/ delphi-beginners/ thread426853.html Дан Массив целых чисел А. Все члены массива с четными номерами, предшествующие максимальному элементу, домножить на значение индекса максимального элемента. Срочно надо решить задачу до завтра!( Спасибо..	Вывести название месяца по его номеру Delphi Нужно делать простейший проект с использованием компонентов страницы Standard. задание: Разработайте проект для ввода номер месяца и вывода название соответ-ствующего месяца. нужно срочно сейчас сдавать.
Delphi Вычисление выражения https://www.cyberforum.ru/ delphi-beginners/ thread426773.html Всем привет! Помогите пожалуйста правильно подсчитать уравнение: f:=abs((exp((y/x)ln(x)))-((y(1/3)/x(1/3)))+(y-x)((cos(y)-(z/(y-x)))/(1+(y-x))) при x=182,5; y=18,225; z=-0,03298. Ответ должен получится f=1,2131, но у меня получается 1,6659. Помогите пожалуйста! Вот само уравнение	Delphi Создание в формы и компонентов на ней в Run-Time https://www.cyberforum.ru/ delphi-beginners/ thread426761.html Создаю форму в ран-тайме и создаю на ней 3 эдита и 2 кнопки, подскажите как сделать обработчик этих компонентов. собственно код: procedure cr_form; var F: TForm; procedure cr_edit(x, y, order: integer); var
Из имени компонента сделать строку ... Delphi Вопрос, наверное, глупый, но как имя компонента сделать строковой переменной? А то мне надо из имени вытащить номер, но не получается ...	Delphi Остановить процес при условии Есть условие. if Edit1.Text = '1' then Label 1.Caption := '1' if Edit1.Text = '2' then Label 1.Caption := '5' Условие: Если текст первого Эдита равен 1 то присвоить Label название 1. И после этого останговить процес. Если же текст первого Эдита не равен 1 то нужно выполнить другую операцию if Edit1.Text = '2' then Label 1.Caption := '5' и т.д. То есть будет еще if Edit1.Text = '3' then... https://www.cyberforum.ru/ delphi-beginners/ thread426628.html

Nike))

0 / 0 / 0

Регистрация: 05.09.2011

Сообщений: 11

13.01.2012, 21:57 [ТС]

Удаление файлов - Delphi - Ответ 2385022

13.01.2012, 21:57. Показов 875. Ответов 8

Метки (Все метки)

Ответ

Сообщение от kwinto

Уже и разжевал...
Все равно не помогает??

Delphi

procedure TUpdater.Button4Click(Sender: TObject);
var
  Stream: TMemoryStream;
  url: string;
begin
  Stream:=TMemoryStream.Create;
  try
    try
      url:='http://update-hack.ucoz.net/UpdNew.ini';
      IdHTTP3.Get(url,Stream);
      Stream.Position:=0;
      memo5.lines.LoadFromStream(Stream);
    except
      on e:Exception do
        MessageDlg('Ошибка: '+#13#10+E.Message, mtError, [mbCancel], 0);
    end;
  finally
    Stream.Free;
  end;
end;

Спасибо огромное =)) Теперь помогло =D Подскажите, тут на форуме спасибку можно ставить?

Добавлено через 38 секунд
Все нашел) Спасибо еще раз))

Вернуться к обсуждению:
Удаление файлов Delphi

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.01.2012, 21:57

Готовые ответы и решения:

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

удаление файлов
Здравствуйте, уважаемые форумчане. Прошу Вас помочь мне с проблемой: надо удалить файлы из папки,...

Удаление файлов
Очень нужна помощь. есть код var filename: string; mindate:tdatetime; FreeSizeGb: Extended ;...

Удаление файлов
Доброе время суток, подскажите есть форма при нажатие на которую удаляется директория ...

	13.01.2012, 21:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.01.2012, 21:57

Помогаю со студенческими работами здесь

Удаление файлов
Как можно удалить файл безвозвратно, то есть без какой либо возможности его восстановить.

Удаление файлов
Здравствуйте,у меня в программе создаются файлы txt c именем файл_0, файл_1,файл_n .В событие...

Удаление файлов
Какие функции отвечают за удаления файлов и программ? Если у кого есть исходники, покажите.

Безвозвратное удаление файлов
Собственно - как подобное можно реализовать?

Наверх