Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

function NewStr(const S: string): PString;

{ DisposeStr disposes a string pointer that was previously allocated using NewStr.DisposeStr is provided for backwards compatibility only. }

procedure DisposeStr(P: PString);

{ AssignStr assigns a new dynamically allocated string to the given string pointer.AssignStr is provided for backwards compatibility only. }

procedure AssignStr(var P: PString; const S: string);

Можно

отметить, что явно задать использование long strings можно декларацией

var

 sMyLongString: AnsiString; // long dinamically allocated string

 sMyWideString: WideString; // wide string (UNICODE)

 sMyShortString1: ShortString; // old-style string

 sMyShortString2: String[255]; // old-style string, no more than 255 chars

Хотелось бы также предупредить наиболее частные ошибки при использовании длинных строк:

• Если Вы передаёте указатель PChar на буфер, взятый от длинной строки, в функцию, которая может изменить содержание буфера, то убедитесь, что на этот буфер указывает только одна строка. Это верно в случаях сложения строк, вызова UniqueString или SetLength и некоторых других;

• Если Вы используете длинные строки как аргументы или результаты для функций, располагающихся в DLL, то в DLL надо использовать модуль ShareMem;

• Не используйте длинные строки как члены структур типа record. Используйте там короткие строки или array[0..n] of char. Также нельзя использовать в структурах типа record динамические массивы. Данные ограничения отсутствуют для классов.

Различия TMEMOFIELD

Delphi 1

Во-первых, если аргумент size у GetMem равен нулю, GetMem устанавливает указатель в nil (не отбрасывайте такой способ, но разумней самому установить его в nil). Также в отладчике вы могли бы проверять значение DataSize (или getTextLen) перед самим вызовом.

(Проигнорируйте следующий параграф, если Table1Notes не Memo.)

Во-вторых, если Table1Notes — Memo-поле, вы, вероятно, захотите использовать Table1Notes.getTextLen, не DataSize, поскольку DataSize возвращает размер сегмента буфера записи (0-254), тогда как getTextLen возвратит вам реальный размер Memo. (Для строкового поля DataSize работать будет, но очень странно, поскольку возвращает ноль.) Также вы можете воспользоваться getTextBuf вместо getData, не знаю точно почему, но мои многочисленные экспериметны показали, что getTextBuf работает правильно и устойчиво, а getData нет.

Поскольку "wordwrapping" (перенос слов) доступен в вашем приложении, вы можете заменить символы #10 (перевод строки) и #13 (возврат каретки) на пробелы, например так:

cursor: pchar;

cursor := ваш буфер;

while cursor^ <> #0 do if (cursor^ = #13) or (cursor^ = #10) then cursor^ := ' ';

Данный

способ прост, поскольку нам нет нужды перемещать текст из переменной в переменную, хотя и не без недостатка, поскольку в конце каждой строки мы получаем два пробела, что может неправильно интерпретироваться при переносе строк. В качестве альтернативы, вместо пробела вы можете применить другой служебный символ, который ваш текстовый процессор воспримет в качестве прерывания строки, или проигнорирует его (например, символ #8). Если вам нужно просто избавиться от символов перевода строки, воспользуйтесь двумя курсорами как показано ниже (извините, не тестировал):

out, in: pchar;

out := ваш буфер;

in := out;

while in^ <> #0 do begin

 if (in^ <> #10) and (in^ <> #13) then begin

out^ := in^;

inc(out);

 end;

 inc(in);

end;

out^ := #0;

Если вместо этого вы хотите заменить каждую пару CR-LF или отдельный CR или LF единичным пробелом, попробуйте это:

out, inn: PChar;

out := ваш буфер;

inn := out;

while in^ <> #0 do begin

 if (in^ = #10) then begin

 end

 else if (in^ = #13) then begin

if (in+1)^

Если вместо этого вы хотите заменить каждую пару CR-LF или отдельный CR или LF единичным пробелом, попробуйте это:

out, inn: PChar;

out := buf;

inn := out;

while inn^ <> #0 do begin

 if (inn^ = #10) or ((inn^ = #13) and ((inn+1)^ <> #10)) then begin

out^ := ' ';

Inc(out);

 end

 else if (inn^ = #13) then

 { только CR, игнорируем }

 else begin

out^ := inn^;

Inc(out);

 end;

 Inc(inn);

end;

out^ := #0;

{ буфер теперь закрыт }

Непроверенное: эффект уменьшения размера (путем установки терминатора #0) этого PChar позволит уменьшить время компиляции массивов и буферов GetMem, что же будет при использовании StrAlloc/StrDispose?