[prestuplenie]

Всем Добрый День. Нужна ваша помощь. У меня задача состоит в том что нужно создать программу, где в Form1 должны быть два memo(или StringGrid), первая должна загрузить данные из текствого файла, и при нажатии кнопки (button, BitBtn) данные из первого окна должны загрузиться во вторую и на сервер. Как это сделать? HELP

[iGeTT]

Код:

Memo1.LoadFromFile('1.txt');

В каком виде загрузиться и на какой сервер?
И зачем два мемо, если можно работать с одним?

[prestuplenie]

В одном мемо должны загрузится данные из txt файла (в виде таблицы), по середине должна стоять кнопочка, при нажатии которой - данные из первого мемо должны скопироваться во второй мемо и на сервер

[NumLock]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('avatar.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo2.Text:=Memo1.Text;
end;

end.

[prestuplenie]

NumLock, в первой части (Button1) все правильно, но при нажатии Button2 он не только должен скопировать в мемо2, но и сохранить это на сервер. То есть мы пользуемся одной программой, и эти данные должны сохранится и там

[NumLock]

oops)

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('Unit1.pas');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo2.Text:=Memo1.Text;
  Memo2.Lines.SaveToFile('\\server\Public\oleg\avatar.txt');
end;

end.

[ChinYan]

он не только должен скопировать в мемо2, но и сохранить это на сервер.

К сожалению, штатный экстрасенсор на больничном (грипп, знаете ли) в связи с чем определения механизмов взаимодействия Вашей программы с Вашим сервером не представляется возможным. Таким образом написать сохранение на сервер можете только Вы