Hogyan lehet eltávolítani üres sorokat a memo

Hogyan lehet eltávolítani üres sorokat a Memo?

Emlékeztető, hogy mentse a tartalmát a txt fájlban.
Hogyan teszik mentésekor, üres húrok automatikusan eltávolítják?

Stroka_1
Stroka_2
Stroka_3
# XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0; # XA0;<--удалить
Stroka_5
Stroka_6

Rendezni az összes sort (Memo1.Lines) végétől (i: = Memo1.Lines.Count - 1 downto 0 do.). Ha találkozás vonal (Memo1.Lines [i]), amely üres (= ""), majd távolítsa azt Memo1.Lines.Delete (i)

Mint ez - felvázolt néhány másodperc, nem tud dolgozni.

száma: = 0;
ismétlés
Ha a length (memo1.lines [count]) = 0
# XA0, majd memo1.lines.delete (count)
más
inc (szám)
amíg (száma<>memo1.lines.count);

> roun # XA0; (07.08.07 16:08)
>
> Menti tartalmának Memo txt fájlban.
> Hogyan teszik mentésekor, üres húrok automatikusan
> Távolítani?
>

Ne írjon egy üres karakterlánc txt fájlban.

> Ne írjon az üres sorokat txt fájlban.

valószínűleg a SaveTofile írja.

> Ez a SaveTofile valószínűleg írja.
>

Ezután a téma
> Hogyan teszik mentésekor, üres húrok automatikusan
> Távolítani?

Ez nem megoldás.

> ismétlés
> Ha a length (memo1.lines [count]) = 0

Tehát nem csinál, sőt három hiba

1. memo1.lines.count lehet nulla, akkor jó, ha szerencséd van, és repülni tévedésből

2. hossza összhangban legalább egy üres nagyobb, mint nulla

3. amíg (száma<>memo1.lines.count); végrehajtása csak egyszer vagy kétszer. És ha a hálózathoz, amíg (count = memo1.lines.count); kockázatának kerékpáros közelítőleg egységes amikor count = 0

Összegezve a tanácsot kiderül:
i: = Memo1.Lines.Count - 1 downto 0 do
# XA0; ha Memo1.Lines [i] = "", majd Memo1.Lines.Delete (i);
ha Memo1.Lines.Count> 0, akkor
további SaveTofile

> És hogy ellenőrizze a lustaság?

Intézkedést javasol véletlenszerűen? Elve szerint „működik - olyan jól?”
Általában bármilyen feladat először dönt a tervezet másolatát (papíron), és csak ezután teszik ki.

> Általában bármilyen feladat először dönt a tervezet (egy darab
> Papír), és csak ezután teszik ki.

Nos, hogy ki tart vissza?
Ha nem tudja megoldani a papíron, továbbra is véletlenszerű. és nincs semmi baj IMHO.

> [7] roun # XA0; (07.08.07 21:19)
> Így kiderül?

Ha a terek - nem „üres string” valami hasonló [7], vagy az alábbiak szerint:
míg Pos (# 13, # 10, # 13, # 10, Memo1.Text)> 0 do
# XA0; Memo1.Text: = StringReplace (Memo1.Text, # 13 # 10 # 13 # 10, # 13, # 10, [rfReplaceAll]);

Ellenkező esetben, a [7], ha a Trim (Memo1.Lines [i]) = "", majd.
És hogy akkor jön ki valami mást. etzh programozás zaprogrammiruesh úgy legyen.

Memória: 0,74 MB
Idő: 0,097 c