Разбивка текста на строчки

← →
AlexanderMS © (2006-04-22 19:42) [0]

Дан текст, содержащий несколько #13. Как мне разбить его на строки, чтобы затем вывести в TMemo? Мой способ довольно долгий и нерациональный, да к тому же подводит. Помогите, пожалуйста!

← →
antonn © (2006-04-22 19:45) [1]

а какой у вас способ?

← →
AlexanderMS © (2006-04-22 19:48) [2]

for n := 1 to length(CSF[Index].Value) do if СSF[Index].Value[n] = #13 then Value.Lines.Add("") else value.Lines[value.Lines.Count - 1] := value.Lines[value.Lines.Count - 1] + CSF[Index].Value[n];

← →
Kilkennycat © (2006-04-22 19:51) [3]

ansireplace(text, #13, #13#10);

← →
AlexanderMS © (2006-04-22 19:54) [4]

Спасибо. Только:

Undeclared identifier: "ansireplace"

Нужен модуль?

← →
antonn © (2006-04-22 19:56) [5]

может так:
function Set132caretka(s:string):string; var i_last,_itmp:integer; res:string; begin res:=""; i_last:=1; while i_last<length(s) do begin _itmp:=pos("#13",copy(s,i_last,length(s))); if _itmp>0 then begin res:=res+copy(s,i_last,_itmp-1)+#13#10; i_last:=i_last+_itmp+2; end else begin res:=res+copy(s,i_last,length(s)-i_last+1); i_last:=length(s); end; end; result:=res; end; procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Add(Set132caretka("sdfasdf#13sdfadf#1313")); end;

> Нужен модуль?

StrUtils

function AnsiReplaceStr(const AText, AFromText, AToText: string): string;

То что нужно! Большое спасибо!

Разбивка текста на строчки Найти похожие ветки