Буфер обмена, FreePascal Опции

[Bokul]

Как скинуть в буфер обмена(Ctrl+C) текстовую информацию?

[Bokul]

Спаибо Volvo, теперь все работает . Компилятор и раньше писал что-то про mode, только я поставил вместо {$mode DELPHI} {$mode ObjFpc}.

Осталось несколько моментов, которые я не понял:

Setlength(S, MAX_PATH + 1);

Откуда взялась переменная MAX_PATH? Или это константа? Чему она ровна?

C := S[1];
S[1] := '$';
---------
S[1] := C;

Для чего сначала первому символу строки присваивать символ '$', а потом возвращать предыдущее значение?
Чтобы снизить вероятность нахождения другого окна с тем же именем?

chiBuffer: string;
----------------------
for i := 0 to pred(rd) do begin
chiBuffer := chiBuffer + buf[i];

Сколько символов помещается в string? Я думал 255... а тут получается больше 400 - rd = size = 80 * 50, да плюс еще 50 раз по #13#10. Получается 500 символов. Я не прав?

Сообщение отредактировано: Bokul - 16.09.2006 22:05

[volvo]

Откуда взялась переменная MAX_PATH? Или это константа? Чему она ровна?

Константа... Описана в модуле SysUtils, в свою очередь равна константе MaxPathLen (из модуля System) = 256 (зависит от ОС)

Для чего сначала первому символу строки присваивать символ '$', а потом возвращать предыдущее значение? Чтобы снизить вероятность нахождения другого окна с тем же именем?

Именно так... Вообще Microsoft в этом случае рекомендует заменить заголовок окна на сгенерированный GUID, чтобы вообще исключить возможность присутствия второго такого же заголовка, но я думаю, это лишнее

Сколько символов помещается в string? Я думал 255... а тут получается больше 400 - rd = size = 80 * 50, да плюс еще 50 раз по #13#10. Получается 500 символов. Я не прав?

К сожалению, нет Или к счастью... В FPC String = AnsiString в режиме совместимости с Дельфи, а

3.2.4 Ansistrings
Ansistrings are strings that have no length limit. They are reference counted and null terminated.

P.S. Кстати, чтобы убрать лишние пробелы (о чем я говорил выше), достаточно сделать так:

  { Это уже есть в программе ... }
  chiBuffer := '';
  for i := 0 to pred(rd) do begin

    chiBuffer := chiBuffer + buf[i];
    if succ(i) mod 80 = 0 then chiBuffer := chiBuffer + #13#10;

  end;

  { А вот это надо добавить ... }
  while pos(' '#13#10, chiBuffer) > 0 do
    chibuffer := stringreplace(chibuffer, ' '#13#10, #13#10, [rfreplaceall]);
  ...