Решение Проблемы Копирования и Вставки данных из TStringGrid в Delphi после Миграции с D7 на XE2

Delphi , ОС и Железо , Буфер обмена

Вопрос пользователя связан с проблемами копирования и вставки данных из компонента TStringGrid в среде Delphi после миграции с версии D7 на XE2. Проблема заключается в том, что при попытке скопировать строку из TStringGrid и вставить её в пустую строку, первый столбец вставляется корректно, а второй содержит мусорные символы, и начиная с третьего столбца данные не вставляются вовсе. Это происходит из-за того, что символы табуляции, разделяющие столбцы, и содержимое ячеек повреждены.

При копировании строки в буфер обмена используется TMemoryStream, который записывает данные в формате, разделённом символами табуляции. При вставке из буфера обмена данные считываются обратно в TStringGrid. Однако, после миграции с D7 на XE2, код перестал работать корректно.

Ошибка в Кодировке

Основная проблема заключается в неправильном написании кода для записи и чтения строки из потока. В коде для копирования строки используется запись половины строки вместо полной:

Stream.Write(PChar(RowStr)^, Length(RowStr));

Этот код должен быть исправлен на:

Stream.Write(PChar(RowStr)^, Length(RowStr) * SizeOf(Char));

Аналогично, в коде для вставки строки из буфера обмена, чтение данных из потока также выполнено некорректно:

Stream.Read(PChar(TempStr)^, Stream.SIZE);

Этот код следует изменить на:

Stream.Read(PChar(TempStr)^, Len * SizeOf(Char));

Проблемы с Кодировкой Unicode

Также важно отметить, что использование того же идентификатора формата буфера обмена, что и в программе с ANSI-кодировкой, может привести к несоответствию кодировок при копировании из одной программы и вставке в другую. Рекомендуется зарегистрировать новый идентификатор формата буфера обмена для новой программы с поддержкой Unicode.

Оптимизация Кода

В коде копирования строки нет необходимости записывать длину строки, так как при чтении можно использовать размер потока для определения длины строки. Кроме того, операции открытия и закрытия буфера обмена должны быть защищены блоком try/finally, чтобы гарантировать корректное закрытие буфера обмена в случае возникновения исключений.

Пример Исправленного Кода

procedure TfrmBaseRamEditor.CopyLine(...);
var
  Stream: TMemoryStream;
  RowStr: String;
begin
  Stream := TMemoryStream.Create;
  try
    // Создание строки с разделителями по табуляции
    RowStr := '';
    for i := 0 to (StrGridTemp.ColCount - 1) do
      RowStr := RowStr + StrGridTemp.Cells[i, Row] + #9;
    // Запись строки в поток
    Stream.Write(PChar(RowStr)^, Length(RowStr) * SizeOf(Char));
    // ... (дальше код для работы с буфером обмена)
  finally
    Stream.Free;
  end;
end;

procedure TfrmBaseRamEditor.PasteLine(...);
var
  Stream: TMemoryStream;
  MemHandle: THandle;
  TempStr: String;
  Len: Integer;
begin
  Clipboard.Open;
  try
    // ... (дальше код для чтения из буфера обмена)
    Stream.Read(PChar(TempStr)^, Len * SizeOf(Char));
    // Вставка данных в TStringGrid
    for i := 0 to StrGridTemp.ColCount - 1 do
      StrGridTemp.Cells[i, Row] := NextStr(TempStr, #9);
  finally
    Clipboard.Close;
  end;
end;

Заключение

После внесения вышеуказанных изменений в код, проблема копирования и вставки данных из TStringGrid в среде Delphi после миграции с D7 на XE2 должна быть решена. Важно также убедиться, что операции с буфером обмена защищены блоками try/finally для обеспечения корректного закрытия буфера и освобождения ресурсов.

Создано по материалам из источника по ссылке.

Проблема заключается в ошибках при работе с буфером обмена и потоками данных в компоненте `TStringGrid` в среде Delphi после миграции с версии D7 на XE2, связанных с неправильной записью и чтением данных в формате, разделённом табуляцией, и несоответстви

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Буфер обмена ::