Форум Игромании
 
Регистрация
Справка

Программирование Создание, разработка и доработка различных игр и программного обеспечения

Ответ
 
Опции темы
Старый 23.06.2010, 23:42   #1
Игрок
 
Аватар для Ost1n_ud
 
Регистрация: 29.09.2009
Сообщений: 741
Репутация: 586 [+/-]
Delphi/Делфи


Delphi – это удивительный язык программирования, - это безграничные возможности, сотни компонентов, тысячи функций и открытых исходников. Вот почему даже самые продвинутые гуру не знают все о Delphi. На первый взгляд, кажется, что Delphi не одолеть? Выбросите эту мысль из головы – на то Вы и пришли в Интернет, чтобы учиться. Поверьте, delphi скоро станет для Вас настоящим другом и незаменимым помощником.

Пример.
Скрытый текст:
PHP код:
 {Событиепроисходящее при создании формы MainForm}
 
procedure TMainForm.FormCreate(SenderTObject);
 var
   {
Объявление переменной типа TStrings(список строк).}
   
StringsTStrings;
 
begin
   
{Создание(выделение памяти и тд.) объекта типа TStringList.
    
TStringList это потомок TStringsреализующий абстрактные методы.}
   
Strings := TStringList.Create
   try
     {
Добавление строки.}
     
Strings.Add('Добавляемая строка.');
     {
Сохранение строк в файл.}
     
Strings.SaveToFile('C:\Strings.txt');
   
finally
     
{Удаление объекта.}
     
Strings.Free;
   
end;
 
end


Крупнейшие информационные сайты и сообщества изучающих Delphi.

КОРОЛЕВСТВО Дельфи | Виртуальный клуб программистов
Delphi Sources — Программирование на Delphi, более 800 примеров, статьи, форум, FAQ
Мастера DELPHI
Delphi Plus — новости, посвященные Delphi
Torry’s Delphi Pages — крупнейший сборник компонент для Delphi
DRKB — Русская база знаний по Delphi
DRKB — Статьи по Delphi

Последний раз редактировалось Ost1n_ud; 28.06.2010 в 21:20. Причина: Обновление шапки
Ost1n_ud вне форума  
Отправить сообщение для Ost1n_ud с помощью ICQ Ответить с цитированием
Старый 02.12.2011, 22:39   #41
Игроман
 
Аватар для Sooltan DJ
 
Регистрация: 24.05.2007
Адрес: Vice City
Сообщений: 2,549
Репутация: 566 [+/-]
Нужно срочно сделать прогу по Курсовой работе, метод шифрования магический квадрат, с дизайном и с возможностью сохранения файла. Очень нужно до вторника готовая прога.

Добавлено через 20 часов 20 минут
Кто-нибудь может сделать?
__________________
Iphone 4 16GB
Xbox 360 Elite Jasper HDD 120GB
Core 2 Duo E7400 2.8 RAM 2GB HDD 500GB Video Geforce 9800GT 1GB

Последний раз редактировалось Sooltan DJ; 03.12.2011 в 18:59. Причина: Добавлено сообщение
Sooltan DJ вне форума  
Отправить сообщение для Sooltan DJ с помощью ICQ Ответить с цитированием
Старый 05.12.2011, 18:30   #42
Игроман
 
Аватар для Sooltan DJ
 
Регистрация: 24.05.2007
Адрес: Vice City
Сообщений: 2,549
Репутация: 566 [+/-]
Мне очень срочно нужно на этой неделе.
__________________
Iphone 4 16GB
Xbox 360 Elite Jasper HDD 120GB
Core 2 Duo E7400 2.8 RAM 2GB HDD 500GB Video Geforce 9800GT 1GB
Sooltan DJ вне форума  
Отправить сообщение для Sooltan DJ с помощью ICQ Ответить с цитированием
Старый 07.12.2011, 01:01   #43
Большой, красивый, СИНИЙ
 
Аватар для bober_maniac

 
Регистрация: 31.12.2021
Сообщений: 8,672
Репутация скрыта [+/-]
Тювак, у нас тут элитное общество, мы таким не занимаемся.
bober_maniac вне форума  
Ответить с цитированием
Старый 25.12.2011, 19:05   #44
Новичок
 
Аватар для Sniffer
 
Регистрация: 02.11.2007
Сообщений: 2
Репутация: 145 [+/-]
Вводится строка, например «2+3», «7*7», «8/2».
Нужно вывести результат.
Не могу сообразить, как грамотно реализовать считывание из строки цифр и знака
__________________
Ничего личного ...
Sniffer вне форума  
Отправить сообщение для Sniffer с помощью ICQ Ответить с цитированием
Старый 25.12.2011, 19:52   #45
Юзер
 
Аватар для CMETAHA

 
Регистрация: 24.06.2008
Адрес: Я тут
Сообщений: 429
Репутация: 172 [+/-]
Цитата:
Сообщение от Sniffer Посмотреть сообщение
Не могу сообразить, как грамотно реализовать считывание из строки цифр и знака
Считывай посимвольно.
__________________
"Хуже вопроса не в той теме, может быть только вопрос, о вопросе не в той теме." © *@ndrey*

Контактик Щебет Лицокнижка Спроси меня Гплюс
CMETAHA вне форума  
Отправить сообщение для CMETAHA с помощью ICQ Ответить с цитированием
Старый 06.02.2012, 00:57   #46
Новичок
 
Регистрация: 06.02.2012
Сообщений: 1
Репутация: 0 [+/-]
считываешь по символу, а знак проверяешь с помощью if s(знак) = / then ... else if... s(знак) = * then... else if... и так со всеми знаками
CrazyJiM вне форума  
Ответить с цитированием
Старый 27.02.2012, 15:50   #47
Новичок
 
Аватар для D!mon
 
Регистрация: 27.12.2007
Адрес: ...
Сообщений: 97
Репутация: 113 [+/-]
задача: удалить запись из файла. решил записывать все записи кроме той что надо удалить в новый файл. потом удалять старый. и новый переименовывать по имени старого.
Скрытый текст:

begin
AssignFile(f, 'tovar.dat');
reset(f); //файл, в котором все записи хранятся
AssignFile(g, 'tmp.dat');
rewrite(g); //создаю новый файл
j:=0;
while (not EOF(f)) do
begin
seek(f,j);
read(f,x);
if x.name=namebox.text then //тут мне нужно пропустить запись, у которой имя совпадает с тем что введено в namebox
begin
inc(j);
seek(f,j);
read(f,x);
end;
write(g,x);
inc(j);
end;
Erase(f); //стираю старый файл
s:='tovar.dat';
ReName(g, s); //переименовываю новый файл
closefile(f); //я понимаю что формально я удалил файл f, но ведь он ассоциирован с файлом, который уже после переименования существует.
end

при попытке удалить запись, выдаёт ошибку io 32. проходил код пошагово, ошибка появляется уже по завершении этой процедуры, то есть даже после выполнения закрытия файла
__________________
[PS3 (PSNid D_ima)]
D!mon вне форума  
Ответить с цитированием
Старый 06.03.2012, 21:16   #48
Новичок
 
Аватар для G.E.A.R.
 
Регистрация: 01.12.2007
Сообщений: 33
Репутация: 11 [+/-]
как из WebBrowserа кликом по ссылке вызвать процедуру?
G.E.A.R. вне форума  
Отправить сообщение для G.E.A.R. с помощью ICQ Ответить с цитированием
Старый 09.03.2012, 12:48   #49
Новичок
 
Аватар для фон_Цинег
 
Регистрация: 09.03.2012
Адрес: РФ
Сообщений: 9
Репутация: 7 [+/-]
Если речь идет о TWebBrowser, то обработкой его события OnNavigateComplete2.
фон_Цинег вне форума  
Отправить сообщение для фон_Цинег с помощью ICQ Ответить с цитированием
Старый 18.03.2012, 18:28   #50
Новичок
 
Регистрация: 24.10.2010
Сообщений: 13
Репутация: 2 [+/-]
Делаю небольшую задачку, но условия оформления таковы, что обязательно должно быть MainMenu с кучей пунктов, хотя можно было обойтись.
Хочу как бы разделить код, вынести все процедуры, отвечающие за обработку пунктов меню, в отдельный Unit. Т.е. получается одна форма, а к ней два юнита - с алгоритмами обработки данных и с обработчиками менюх. Как это сделать?

Последний раз редактировалось 8lunt; 18.03.2012 в 18:39. Причина: Добавлено сообщение
8lunt вне форума  
Ответить с цитированием
Старый 18.03.2012, 20:53   #51
Новичок
 
Аватар для G.E.A.R.
 
Регистрация: 01.12.2007
Сообщений: 33
Репутация: 11 [+/-]
Так?

Скрытый текст:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    menu1: TMenuItem;
    procedure menu1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;
{$R *.dfm}

procedure TForm1.menu1Click(Sender: TObject);
begin
  Procedure1;
end;

end.
Код:
unit Unit2;

interface

Procedure Procedure1;

implementation

uses Unit1;

Procedure Procedure1;
Begin
  Form1.Caption:='qwerty';
End;

end.
G.E.A.R. вне форума  
Отправить сообщение для G.E.A.R. с помощью ICQ Ответить с цитированием
Старый 19.03.2012, 03:47   #52
Новичок
 
Регистрация: 24.10.2010
Сообщений: 13
Репутация: 2 [+/-]
Да, заработало наконец-то. Гуглил что-то подобное но не работало.
Еще, когда через File-New создаешь AboutBox - при выводе его на экран он блокирует основную форму, т.е. пока не закроешь AboutBox переключиться на главную форму нельзя. Как такое сделать с собственной формой? Я так понимаю, должно быть какое-то свойство формы (потому что в AboutBox никаких обработчиков событий по умолчанию нет), но я его не могу найти.
8lunt вне форума  
Ответить с цитированием
Старый 19.03.2012, 09:13   #53
Новичок
 
Аватар для G.E.A.R.
 
Регистрация: 01.12.2007
Сообщений: 33
Репутация: 11 [+/-]
показывай свою форму так Form2.ShowModal

Последний раз редактировалось G.E.A.R.; 19.03.2012 в 09:40.
G.E.A.R. вне форума  
Отправить сообщение для G.E.A.R. с помощью ICQ Ответить с цитированием
Старый 20.03.2012, 11:47   #54
Новичок
 
Аватар для MicPavlov
 
Регистрация: 10.03.2008
Адрес: Бескрайняя Арктика
Сообщений: 0
Репутация: 233 [+/-]
Кто нибудь работал с графическими файлами tiff? Если есть можете библиотеку скинуть? или компонент?
__________________
Работа с сервером не должна начинаться с "тащи отвертку мы его еще его не разобрали" и уж точно не с фразы "а хрен знает где эта отвертка но есть замечательный паяльник!"
MicPavlov вне форума  
Отправить сообщение для MicPavlov с помощью ICQ Ответить с цитированием
Старый 11.04.2012, 00:27   #55
уииииииииииииииииии
 
Аватар для гидроцветок
 
Регистрация: 31.03.2007
Сообщений: 1,960
Репутация: 190 [+/-]
Как получать из edit тип cordinal,а потом работать им как с int?
гидроцветок вне форума  
Ответить с цитированием
Старый 14.04.2012, 21:49   #56
Большой, красивый, СИНИЙ
 
Аватар для bober_maniac

 
Регистрация: 31.12.2021
Сообщений: 8,672
Репутация скрыта [+/-]
Цитата:
Сообщение от гидроцветок Посмотреть сообщение
Как получать из edit тип cordinal,а потом работать им как с int?
А зачем тебе работать с ним как с int? Получи сразу int с помощью текста и функции StrToInt.
bober_maniac вне форума  
Ответить с цитированием
Старый 14.04.2012, 21:49   #57
Большой, красивый, СИНИЙ
 
Аватар для bober_maniac

 
Регистрация: 31.12.2021
Сообщений: 8,672
Репутация скрыта [+/-]
Цитата:
Сообщение от гидроцветок Посмотреть сообщение
Как получать из edit тип cordinal,а потом работать им как с int?
А зачем тебе работать с ним как с int? Получи сразу int с помощью текста и функции StrToInt.
bober_maniac вне форума  
Ответить с цитированием
Старый 09.06.2012, 11:09   #58
Желтый абутилон
 
Аватар для Льюс Терин
 
Регистрация: 22.12.2006
Адрес: интернеты
Сообщений: 3,369
Репутация: 410 [+/-]
Простите за глупый вопрос. У дэлфи свой язык? или это тот же паскаль?
Льюс Терин вне форума  
Отправить сообщение для Льюс Терин с помощью ICQ Отправить сообщение для Льюс Терин с помощью Skype™ Ответить с цитированием
Старый 09.06.2012, 14:08   #59
Новичок
 
Аватар для D!mon
 
Регистрация: 27.12.2007
Адрес: ...
Сообщений: 97
Репутация: 113 [+/-]
NOSик,
тот же паскаль, просто среда делфи (свой компилятор и всё такое прочее)
но есть некоторые отличия при работе с объектами в обжект-паскаль и в делфи
__________________
[PS3 (PSNid D_ima)]
D!mon вне форума  
Ответить с цитированием
Старый 10.06.2012, 14:25   #60
Мяу
 
Аватар для Hast


 
Регистрация: 13.07.2007
Адрес: Київ
Сообщений: 2,894
Репутация: 620 [+/-]
NOSик, делфи - отдельный язык. Это не обжект паскаль.
__________________
«Да вы прям полиция мыслей» via DikWithballs
«Хех. Только я ник сменил.» via Jack of Еvil
Hast вне форума  
Отправить сообщение для Hast с помощью ICQ Отправить сообщение для Hast с помощью Skype™ Ответить с цитированием
Ответ

Метки
delphi, обсуждение, помощь, программирование

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +4, время: 05:09.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Rambler's Top100 Яндекс цитирования