TStrings: как удалить пустые строки? [D7, WinXP]
Страницы:
<
1
2
>
Луарвик © (2004-08-05 20:02:00)
Вот есть Memo с текстом. как лучше всего удалить из него
пустые строки? Я написал процедуру, она работает, но все равно
думаю может быть лучше.
procedure sdelete;
var i,a:integer;s:string;ss:TStrings;
label g;
begin
ss:=form1.Memo1.lines;
for a:=0 to 2 do
begin
for i:=0 to ss.Count-1 do begin
if i> ss.Count-1 then goto g;
s:=ss[i];
if s='' then form1.tem.items.Delete(i);
end;
g:end;
end;
begin...end (2004-08-05 20:09:00) [21]
var
I: Byte;
begin
for I := 0 to MemoName.Lines.Count - 1 do
if MemoName.Lines[I] = '' then
MemoName.Lines.Delete(I);
end;
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
