Форум Игромании
Страница 3 из 5 12 3 45
Показывать 200 сообщений этой темы на одной странице

Форум Игромании (http://forum.igromania.ru/index.php)
-   Программирование (http://forum.igromania.ru/forumdisplay.php?f=243)
-   -   Delphi/Делфи (http://forum.igromania.ru/showthread.php?t=111292)

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

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

Sooltan DJ 05.12.2011 17:30
Мне очень срочно нужно на этой неделе.

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

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

CMETAHA 25.12.2011 18:52
Цитата:
Сообщение от Sniffer (Сообщение 9980832)
Не могу сообразить, как грамотно реализовать считывание из строки цифр и знака
Считывай посимвольно.

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

D!mon 27.02.2012 14:50
задача: удалить запись из файла. решил записывать все записи кроме той что надо удалить в новый файл. потом удалять старый. и новый переименовывать по имени старого.
Скрытый текст:

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. 06.03.2012 20:16
как из WebBrowserа кликом по ссылке вызвать процедуру?

фон_Цинег 09.03.2012 11:48
Если речь идет о TWebBrowser, то обработкой его события OnNavigateComplete2.

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

G.E.A.R. 18.03.2012 19:53
Так?

Скрытый текст:
Код:
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 19.03.2012 02:47
Да, заработало наконец-то. Гуглил что-то подобное но не работало.
Еще, когда через File-New создаешь AboutBox - при выводе его на экран он блокирует основную форму, т.е. пока не закроешь AboutBox переключиться на главную форму нельзя. Как такое сделать с собственной формой? Я так понимаю, должно быть какое-то свойство формы (потому что в AboutBox никаких обработчиков событий по умолчанию нет), но я его не могу найти.

G.E.A.R. 19.03.2012 08:13
показывай свою форму так Form2.ShowModal

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

гидроцветок 10.04.2012 23:27
Как получать из edit тип cordinal,а потом работать им как с int?

bober_maniac 14.04.2012 20:49
Цитата:
Сообщение от гидроцветок (Сообщение 10210210)
Как получать из edit тип cordinal,а потом работать им как с int?
А зачем тебе работать с ним как с int? Получи сразу int с помощью текста и функции StrToInt.

bober_maniac 14.04.2012 20:49
Цитата:
Сообщение от гидроцветок (Сообщение 10210210)
Как получать из edit тип cordinal,а потом работать им как с int?
А зачем тебе работать с ним как с int? Получи сразу int с помощью текста и функции StrToInt.

Льюс Терин 09.06.2012 10:09
Простите за глупый вопрос. У дэлфи свой язык? или это тот же паскаль?

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

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


Часовой пояс GMT +4, время: 11:55.
Страница 3 из 5 12 3 45
Показывать 200 сообщений этой темы на одной странице

Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.