1—10 | 11—20 | ...>>>

---

Всего вопросов: 300; страниц: 30; текущая страница: 1

Здравствуйте!! Допустим есть база данных которая состоит из след_таблиц:Район..в каждом районе есть человек с ФИО,адресс,кол-во детей и т.д. Как связать эти данные воедино через дельфи или access ??? пожалуйста помогите

Доброго времени суток, жители Королевства! Подскажите, есть ли в Delphi функция или процедура типа cacls.exe или кой-нибудь другой путь который можно реализовать средствами Delphi.

Добрый вечер.
Подскажите пожалуйста, имеется маленькая програмуленька, хочу продолжить ее написание, а Delphi требует, чтобы после end стояла точка. Как быть?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t: TStream;
  i:integer;
  m: array[1..10] of double;
  f: textfile;
{ Name_g : array[1..255,1..255] of string;  }

implementation

{$R *.dfm}


begin
  t := TMemoryStream.Create;
    for i:= 1 to 10 do
      m[i]:= (i)*(3.475*2.875);
        begin
          AssignFIle(F,'D:\тест\file.txt');
          Rewrite(f);
            for i := 1 to 10 do begin
              Writeln(f, m[i],';');
            end;
          CloseFile(f);
        end;
      t.Free;
end.

Здравствуйте дорогие рыцари!
Я поместила на форму OpenDialog1 и PrintDialog1.
Задача такая:
мне нужно открыть документ(.doc) и распечать его на принтере.

Код кнопки "открыть":
procedure TForm1.BtnOpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
  ShowMessage(OpenDialog1.FileName);
end;

Код кнопки "печать":
procedure TForm1.BtnPrintClick(Sender: TObject);
begin
  PrintDialog1.Execute;
end;

Вопрос:Почему я не могу открыть и распечатать документ(MSword)???
Спасибо!

Как организовать программно утверждение приказа с помощью sql запроса???

Здравствуйте. прошу помощи.
компелятор не пропускает строчку
  db:=DaysBetween(datetostr(d),Date);
не понимаю почему вот описания типов и листинг подпрограммы:

type
  passtype = string[20];
  dtype= string[10];

...

var
  Form4: TForm4;
  newpass:boolean;
  d:dtype;
  pass:passtype;
  passfile:file of passtype;
  dfile:file of dtype;
  db:integer;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
label2.Visible:=false;
label3.Visible:=false;
edit1.Visible:=false;
edit2.Visible:=false;

AssignFile(passfile, 'passfile.p');
if not(fileexists('passfile.p')) then begin
    messagedlg('Yoi ia?aue caione i?ia?aiiu. Aaaaeoa iiaue ia?ieu aey iineaao?uaai ainooia e i?ia?aiia e ia?ieoa eiiieo IE',mtInformation,[mbOk],0);
    newpass:=true;
    label1.Visible:=false;
    password.Visible:=false;
    Button1.Visible:=false;
    label2.Visible:=true;
    label3.Visible:=true;
    edit1.Visible:=true...
[см. дальше]

Доброе время суток!!!

Подскажите, пожалуйста, решение проблемы?!

1) Необходимо файл Word  (*.doc) полностью, в неизмененном виде нарисовать на канвасе.

2) При просмотре канваса запретить пользователю делать PrinsScrin и печатать его.

Смысл всего этого в следующем:  Если несколько файлов Word. Нужно обеспечить их нераспространение.
Т.е. чтобы их можно было только посмотреть, но нельзя скопировать из них и распечатать.
Я решил сделать "смотрелку", аналогичную просмотру документов в Word, где каждая страница - отдельный канвас. Програма уже готова. Нужно только теперь каждую страницу документа Word нарисовать на соответствующем канвасе. Вот. А потом наверное перехватывать нажатие PrtSc...

Помогите разобраться?!

Добрый день!
Нужно как то фаил отправить по почте, чз профиль почты в винде.... по типу если по файлу щёлкаем правой кнопкой - отправить - адресат.
Там какойто параметр присваимается?

нужно сразу вбить тему, каму и текс сообщения ((

Программа, написанная на delphi  при попытке печати выдает следующее сообщение access violation at address 0042F6CC in module 'DiagrammD.exe'. Read of address 0000001D  после сообщения принтер выдает сообщение о ошибке при попытке отправить на печать.  Это сообщение  на всех компьютерах, программа предоставлена в виде exe файла. Помогите пожалуйста, может нет библиотек,  каких?

Вопрос по созданию объектов в памяти:

var
  Stud: TStudent; { глобальная переменная }

...
Stud := TStudent.Create;

Как создавать объекты в памяти и получать на них указатель?
Stud возвращает всегда одно значение..

1—10 | 11—20 | ...>>>

---

Всего вопросов: 300; страниц: 30; текущая страница: 1