|
Попробовал использовать CR text2, не помогает. В text box отображаются 2 квадратика вместо переврда строки. Вот используемый код:
NewLine[1] := 13;
NewLine[2] := 10;
f.TEXTMODE := TRUE;
Text := '';
IF f.OPEN(FileName) THEN
BEGIN
WHILE f.POS < f.LEN DO
BEGIN
f.READ(Temp);
IF Text = '' THEN
Text := Temp
ELSE
Text := Text + NewLine + Temp;
END;
f.CLOSE();
END;
EXIT(Text);
Если вместо NewLine использовать '\', то происходит перевод строки первый раз, но потом просто выводится символ \. Поэтому пока использую ' '.
|