Скопировать текст с AllocConsole

@Hrethgir · Регистрация: 25.01.2012

Author24 — интернет-сервис помощи студентам

Приложение графическое, но надо кнопку, чтобы копировать текст с AllocConsole при отладке, скриншоты не удобно делать...с кнопокй проблем нет, нужна процедура, которая скопирует текст, а точнее оператор.
Заранее спасибо.

@Puporev · 03.01.2016, 13:47

Как-то делал так, работало.

Pascal

uses ...,Windows,Clipbrd;
.................................
{ TForm1 }
procedure consopen;
var s:string;
begin
AllocConsole;
IsConsole := True;
SysInitStdIO;
s:='нажмите Enter';
Writeln(UTF8ToConsole(s));
ClipBoard.Clear;
ClipBoard.SetTextBuf(PChar(s));
Readln;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=Clipboard.asText;
end;
begin
 consopen;
end.

Добавлено через 3 минуты
Да, наверное нужно добавить

Pascal

1 2	Memo1.Text:=Clipboard.asText; ClipBoard.Clear;//вот это

@Hrethgir · 03.01.2016, 13:54 **[ТС]**

Спасибо, позже попробую.

@Hrethgir · 04.01.2016, 19:10 **[ТС]**

не работает

.

Pascal

procedure TForm1.Button2Click(Sender: TObject);
begin
 Writeln('ku-ku');
 //Memo1.Text:=Clipboard.asText;
 //Memo1.Text:=Clipboard.asText;
 //ClipBoard.Clear;
end;

а сообщение выводит

ku-ku

, разумеется закомментировал для проверки работы кнопки, и сообщение для этого.
а так в раскомментированом виде не работает

@Puporev · 04.01.2016, 19:41

Pascal

1
2
3

procedure TForm1.Button2Click(Sender: TObject);
begin
 Writeln('ku-ku');

Это что за хрень?
У меня разве так?

Добавлено через 2 минуты
Тема называется

Скопировать текст с AllocConsole

И где у Вас это копирование?

@Hrethgir · 05.01.2016, 18:28 **[ТС]**

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

И где у Вас это копирование?

Прошу прощения, думал разберусь потом с содержанием.
Но вообще оно и так не работает

Pascal

procedure TForm1.Button2Click(Sender: TObject);
var
    s:string;
begin
ClipBoard.Clear;
ClipBoard.SetTextBuf(PChar(s));
 Memo1.Text:=Clipboard.asText;
 Memo1.Text:=Clipboard.asText;
 ClipBoard.Clear;
end;

А дальше я не могу предположить более адекватного кода для этих операторов.
Оно не копирует, потому что не вставляется мышью.
Ниже этот оператор ведь не обязателен? Его у еня нет в программе

Pascal

1	Writeln(UTF8ToConsole(s));

Добавлено через 11 минут
ничего не копируется и так

Pascal

procedure TForm1.Button2Click(Sender: TObject);
var
    s:string;
begin
ClipBoard.Clear;
ClipBoard.SetTextBuf(PChar(s));
 Memo1.Text:=Clipboard.asText;
 Memo1.Text:=Clipboard.asText;
 //ClipBoard.Clear;
end;

Больше я ничего не могу придумать, чтобы попробовать сделать самостоятельно.

Добавлено через 17 часов 8 минут
ну и так тоже

Pascal

procedure TForm1.Button2Click(Sender: TObject);
var
    s:string;
begin
//ClipBoard.Clear;
ClipBoard.SetTextBuf(PChar(s));
 Memo1.Text:=Clipboard.asText;
ClipBoard.Clear;
end

;

@Hrethgir 454 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,795 Записей в блоге: 149
		1
	Скопировать текст с AllocConsole 03.01.2016, 13:05. Показов 1963. Ответов 5 Метки нет (Все метки) Приложение графическое, но надо кнопку, чтобы копировать текст с AllocConsole при отладке, скриншоты не удобно делать...с кнопокй проблем нет, нужна процедура, которая скопирует текст, а точнее оператор. Заранее спасибо. 0

@Hrethgir 454 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,795 Записей в блоге: 149
	03.01.2016, 13:54 [ТС]	3
	Спасибо, позже попробую. 0

	05.01.2016, 18:28