Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];
Вниз
Разбивка текста на строчки Найти похожие ветки
← →
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;
← →
antonn © (2006-04-22 19:57) [6]Kilkennycat © (22.04.06 19:51) [3]
хи-хи-хи, вот это я пролетел...
:)
← →
KilkennyCat © (2006-04-22 19:58) [7]
> Нужен модуль?
StrUtils
function AnsiReplaceStr(const AText, AFromText, AToText: string): string;
← →
AlexanderMS © (2006-04-22 20:09) [8]То что нужно! Большое спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c
