Я создаю String под названием FullMemo, который будет отображаться в TMemoBox, но проблема в том, что я пытаюсь сделать такие символы новой строки:
FullMemo := txtFistMemo.Text + '\n' + txtDetails.Text
Я получил содержимое txtFirstMemo символа \n, а не новую строку, и содержимое txtDetails. Что мне делать, чтобы новая строка работала?
Решение состоит в том, чтобы использовать # 13 # 10 или лучше, как предложил Сертак sLineBreak.
FullMemo := txtFistMemo.Text + #13#10 + txtDetails.Text;
FullMemo := txtFistMemo.Text + sLineBreak + txtDetails.Text;
sLineBreak.
- person Sertac Akyuz; 22.12.2010
Решение, более независимое от платформы, было бы TStringList.
var
Strings: TStrings;
begin
Strings := TStringList.Create;
try
Strings.Assign(txtFirstMemo.Lines); // Assuming you use a TMemo
Strings.AddStrings(txtDetails.Lines);
FullMemo := Strings.Text;
finally
Strings.Free;
end;
end;
Чтобы добавить пустую новую строку, вы можете использовать:
Strings.Add('');
Использовать
FullMemo := txtFistMemo.Text + #13#10 + txtDetails.Text
Вы можете объявить что-то вроде этого:
const
CRLF = #13#10; //or name it 'Enter' if you want
LBRK = CRLF+ CRLF;
в общем блоке и используйте его во всех своих программах. Будет действительно кстати. Теперь, спустя 20 лет, я использую CRLF в тысячах мест!
FullMemo := txtFistMemo.Text + CRLF + txtDetails.Text
ВАЖНО
В Windows правильный формат для ввода - это CRLF, а не просто CR или просто LF, как предлагают другие. Например, Delphi IDe (приложение для Windows) будет действительно сердиться на вас, если ваши файлы не имеют правильных входов (CRLF): Delphi XE - все синие точки сдвинуты на одну строку вверх
Вы не делаете такие символы новой строки, вы используете символ # 13:
FullMemo := txtFistMemo.Text + #13 + txtDetails.Text
+ Chr(13) + 'some more text'#13.
# 13 - CR, # 10 - LF, иногда достаточно использовать только CR, иногда (например, при написании текстовых файлов) использовать # 13 # 10.
