[Ost1n_ud]

Delphi/ Делфи



Официальная страница

Полная статья на Википедии

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

Пример.

Скрытый текст:

PHP код:

 {Событие, происходящее при создании формы MainForm}
 procedure TMainForm.FormCreate(Sender: TObject);
 var
   {Объявление переменной типа TStrings(список строк).}
   Strings: TStrings;
 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

[Sooltan DJ]

Нужно срочно сделать прогу по Курсовой работе, метод шифрования магический квадрат, с дизайном и с возможностью сохранения файла. Очень нужно до вторника готовая прога.

Добавлено через 20 часов 20 минут
Кто-нибудь может сделать?

[Sooltan DJ]

Мне очень срочно нужно на этой неделе.

[bober_maniac]

Тювак, у нас тут элитное общество, мы таким не занимаемся.

[Sniffer]

Вводится строка, например «2+3», «7*7», «8/2».
Нужно вывести результат.
Не могу сообразить, как грамотно реализовать считывание из строки цифр и знака

[CMETAHA]

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

Не могу сообразить, как грамотно реализовать считывание из строки цифр и знака

Считывай посимвольно.

[CrazyJiM]

считываешь по символу, а знак проверяешь с помощью if s(знак) = / then ... else if... s(знак) = * then... else if... и так со всеми знаками

[D!mon]

задача: удалить запись из файла. решил записывать все записи кроме той что надо удалить в новый файл. потом удалять старый. и новый переименовывать по имени старого.

Скрытый текст:

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. проходил код пошагово, ошибка появляется уже по завершении этой процедуры, то есть даже после выполнения закрытия файла

[G.E.A.R.]

как из WebBrowserа кликом по ссылке вызвать процедуру?

[фон_Цинег]

Если речь идет о TWebBrowser, то обработкой его события OnNavigateComplete2.

[8lunt]

Делаю небольшую задачку, но условия оформления таковы, что обязательно должно быть MainMenu с кучей пунктов, хотя можно было обойтись.
Хочу как бы разделить код, вынести все процедуры, отвечающие за обработку пунктов меню, в отдельный Unit. Т.е. получается одна форма, а к ней два юнита - с алгоритмами обработки данных и с обработчиками менюх. Как это сделать?

[G.E.A.R.]

Так?

Скрытый текст:

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.

[8lunt]

Да, заработало наконец-то. Гуглил что-то подобное но не работало.
Еще, когда через File-New создаешь AboutBox - при выводе его на экран он блокирует основную форму, т.е. пока не закроешь AboutBox переключиться на главную форму нельзя. Как такое сделать с собственной формой? Я так понимаю, должно быть какое-то свойство формы (потому что в AboutBox никаких обработчиков событий по умолчанию нет), но я его не могу найти.

[G.E.A.R.]

показывай свою форму так Form2.ShowModal

[MicPavlov]

Кто нибудь работал с графическими файлами tiff? Если есть можете библиотеку скинуть? или компонент?

[гидроцветок]

Как получать из edit тип cordinal,а потом работать им как с int?

[bober_maniac]

Сообщение от гидроцветок

Как получать из edit тип cordinal,а потом работать им как с int?

А зачем тебе работать с ним как с int? Получи сразу int с помощью текста и функции StrToInt.

[bober_maniac]

Сообщение от гидроцветок

Как получать из edit тип cordinal,а потом работать им как с int?

А зачем тебе работать с ним как с int? Получи сразу int с помощью текста и функции StrToInt.

[Льюс Терин]

Простите за глупый вопрос. У дэлфи свой язык? или это тот же паскаль?

[D!mon]

NOSик,
тот же паскаль, просто среда делфи (свой компилятор и всё такое прочее)
но есть некоторые отличия при работе с объектами в обжект-паскаль и в делфи

[Hast]

NOSик, делфи - отдельный язык. Это не обжект паскаль.