VPF::TStream - Форум программистов

Vladimir1988

Дата 17.12.2009, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

Подскажите пожалуйста.
Хочу чтобы из edit1 текст копировался в edit2.
Но выходит сообщение что файл не найден.
Не понятно...

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
  stream1, stream2: tstream;
begin
  stream1:=tfilestream.create(edit1.text, fmopenread or fmsharedenywrite) ;
  try
  stream2:=tfilestream.create(edit2.text, fmcreate or fmsharedenyread);
  try
  stream2.copyfrom(stream1, stream1.size);
  finally
  stream2.free;
  end;
  finally
  stream2.free
  end;
end;

end.

Snowy

Дата 17.12.2009, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Ну раз пишет, что не найдет, значит либо файла нет, либо путь указан неверно.
А по коду - stream2.free два раза убиваешь. Второй на stream1 поправь.

Vladimir1988

Дата 17.12.2009, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

Программа ищет файл с названием который я ввожу в edit1, а мне нужно просто копировать текст из edit1 в edit2. Подскажите пожалуйста где я неправ?
Спасибо.

Teleport

Дата 17.12.2009, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

Цитата

Хочу чтобы из edit1 текст копировался в edit2.

Цитата

а мне нужно просто копировать текст из edit1 в edit2

Код


edit2.Text:= edit1.Text;

--------------------

Vladimir1988

Дата 17.12.2009, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

нужно сделать это при помощи потоков данных, через TStream

Snowy

Дата 17.12.2009, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Зачем такие извращения?
Ну, если очень хочется, то можно и через стрим...

Код

var
  s: TStringStream;
begin
  s := TStringStream.Create(Edit1.Text);
  Edit2.Text := s.DataString;
end;

Или более сложный вариант:

Код

var
  ms: TStream;
  r:  TReader;
  w:  TWriter;
begin
  ms := TMemoryStream.Create;
  w := TWriter.Create(ms, 1);
  w.WriteString(Edit1.Text);
  w.Free;
  ms.Position := 0;
  r := TReader.Create(ms, 1);
  Edit2.Text := r.ReadString;
  r.Free;
  ms.Free;
end;

Тут вместо TMemoryStream, можно использовать любой на твой вкус.

Vladimir1988

Дата 17.12.2009, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.12.2009

Репутация: нет
Всего: нет

Спасибо большое.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »