[Помогите!!!]

Пожалуйста, помогите написать элементарную программу на паскале или на delphi!!!! Очень срочно!!!!
Программа очень простая, но нужно очень срочно и я сама абсолютно не успею вспомнить ни паскаль ни делфи. В благодарность могу кинуть на телефон рублей 200-250. ))
Боюсь наткнуться на преподавателя, поэтому если Вы готовы помочь, то напишите, пожалуйста, свой ID из контакта или одноклассников или фэйсбука...

[Misterhomer]

http://vkontakte.ru/marchello92

[friz]

зачем контакт и т.п.?попахивает чем-то не чистым....
пиши в личку!

[Помогите!!!]

Я первый раз на форуме, поэтому ничего не знаю о личных сообщениях.
Ок! Если вы готовы откликнуться, то пишите личное сообщение

[Ri-tyan]

Поскольку проблема аналогичная, новую тему создавать на стала.
Очень прошу, помогите, пожалуйста. Надо написать программу типа "клиент -сервер", работающую по следующему принципу: клиент посылает некий символ, а на сервере отображается его код из таблицы ASCII. У меня есть работающий исходник "чистого" клиента-сервера, но как его переделать на эту задачу - понятия не имею...Причем сервер и клиент на одном компе.
Если честно, в Delphi7 я совершенно не разбираюсь. Но задание есть задание, надо делать.

[lmikle]

Берем Indy и делаем в простейшем варианте.
Тебе на самом деле нужен не "клиент-сервер", обычно под этим понимают приложение работы с БД, а просто некоторое сетевое приложение. Кстати, ты вообще-то уточни какие технологии можно использовать, а тож можно м через WM_COPYDATA сделать, а это явно тебе не подойдет.

ЗЫ. Товарищи и товарки
Напоминаю, что на этом форуме люди помогают друг другу. Так что обязательным условием помощи является ваш код и корректные вопросы о том, что у вас конкретно не получается. Если вы хотите рещение "под ключ", то вам в раздел "Работа" со всеми вытекающими.

[Ri-tyan]

Спасибо!

[lmikle]

Да незачто
Приходите еще

[Помогите!!!]

Большое спасибо за помощь!!!

[lmikle]

Ну, каков вопрос - таков ответ
Ну и еще раз напоминаю:

Напоминаю, что на этом форуме люди помогают друг другу. Так что обязательным условием помощи является ваш код и корректные вопросы о том, что у вас конкретно не получается. Если вы хотите рещение "под ключ", то вам в раздел "Работа" со всеми вытекающими.

Здесь в основном "сидят" вполне серьезнве люди, которые готовы помочь, но не готовы убивать свое время на неинтересные задачи. Если задача интересна кому-либо, то могут и все бесплатно сделать. К сожалению, 99% задач от новичков нстолько элементарны и не интересны, что делать их совсем не хочется.

[Mrack86]

Здравствуйте!
Можно ли написать такую программу, что бы при открытии текстового документа (*.txt) содержимое документа открывалось в MSWordе? Если кому либо это не составит труда написать буду весьма признателен

[Mad programmer]

Брось на форму Memо,OpenDialog. В uses добавь модуль comObj.
и напиши это

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  MSWord: Variant;
begin
if OpenDialog1.Execute then
  begin
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
      try
        MsWord := GetActiveOleObject('Word.Application');
      except
        try
          MsWord := CreateOleObject('Word.Application');
          MsWord.Visible := True;
        except
          Exception.Create('Error');
        end;
      end;
  try
      MSWord.Documents.Add;
      MSWord.Selection.Font.Size := 12;
      MSWord.Selection.TypeText(Memo1.Text);
  finally
    MSWord:=Unassigned;
  end;
  end;

end;

[Rjkzy]

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

Здравствуйте!
Можно ли написать такую программу, что бы при открытии текстового документа (*.txt) содержимое документа открывалось в MSWordе? Если кому либо это не составит труда написать буду весьма признателен

Может проще асоциировать файлы txt с вордом и не писать ничего?

[stervochka]

Вывести на форму элементы матрицы А(5,5), находящиеся ниже главной и побочной диагонали одновременно. Элементы матрицы А формируются по правилу:
ai,j = 1/(i + j) - COS(i).

Код:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[0,2]:='2';
StringGrid1.Cells[0,3]:='3';
StringGrid1.Cells[0,4]:='4';
StringGrid1.Cells[0,5]:='5';
StringGrid1.Cells[1,0]:='1';
StringGrid1.Cells[2,0]:='2';
StringGrid1.Cells[3,0]:='3';
StringGrid1.Cells[4,0]:='4';
StringGrid1.Cells[5,0]:='5';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
a:array[1..5,1..5] of real;
begin
for i:=1 to 5 do
for j:=1 to 5 do begin
a[i,j]:=(1/(i+j))-cos(i);
end;
for i:=1 to 5 do
for j:=1 to 5 do begin
if (i<j) then
StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
end;
while i<=5 do begin
while j<=5 do begin
if (i>j) then StringGrid1.Cells[i,j]:=FloatToStr(a[i,j]);
i:=i+1;j:=j+2;
end;end;
end;

end.

Admin: Пользуемся тегами!
И напоминаю, один вопрос - одна тема.
Тему закрываю...

что то тут не получаеться((((((

[Mrack86]

Спасибо всем кто откликнулся!