[Sevas]

Нужно по нажатию кнопки создать текстовый файл, но есть несколько строк в которых встречается символ апострофа '
Строка вида - rs, err = EDSU:receive('*l')
Файл создаётся без проблем, но на этой строке выпадает ошибка...

Код:

Write(Export_for_Recording,'rs, err = EDSU:receive('*l')' );

как обойти данную синтаксическую незадачу?

[v1s2222]

Чтоб вставить апостроф, напиши его 3 раза. Пример, что вывести 'Hello' надо написать Write('''Hello''');

[Sevas]

для файла сработало два апострофа.
спасибо. +

[NumLock]

чтобы в строку вставить апостров его нужно написать 2 раза:

Код:

var
  s: String;
begin
  s:='hello ''world''';
  Caption:=s;
end;

[Doser]

Сделайте один раз текстовую константу с апастрофом типа TXT_APOS, и потом легче будет её добавлять к строкам.

[PhoeniX]

Суровые русские программисты ещё помнят про #39!

[NumLock]

Код:

var
  i: Integer;
  arr: array [0..256-32] of Char;
begin
  for i:=0 to 256-32 do arr[i]:=Chr(i+32);
  Caption:=arr[7]+Chr(39)+'hello'+Chr(Ord(''''))+arr[7];