Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Pole Memo - jak przepisac zawartosc do jednej linijki?

72 views
Skip to first unread message

Piotr Sz.

unread,
Oct 21, 2009, 3:43:55 PM10/21/09
to
Witam.
Potrzebuje zawartosc pola Memo umiescic w jednej linijce jako String.
Poszczegolne wiersze maja byc odseparowane znakiem |.
Podpowiedzcie prosze jak to w miare prosto wykonac.

--

Pozdrawiam
Piotr Sz.

Sławek Skiba

unread,
Oct 21, 2009, 3:54:35 PM10/21/09
to
Dnia 21-10-2009 o 21:43:55 Piotr Sz. <ad...@antyspamowy.pl> napisał(a):

> Witam.
> Potrzebuje zawartosc pola Memo umiescic w jednej linijce jako String.
> Poszczegolne wiersze maja byc odseparowane znakiem |.
> Podpowiedzcie prosze jak to w miare prosto wykonac.
>

for I:=0 to memo.lines.Count-1 do
begin
linia:=linia+memo.lines[i];
if i<memo.Lines.count-1 then linia:=linia+'|';
end;

powinno zadziałać.

Tomek D

unread,
Oct 21, 2009, 3:59:48 PM10/21/09
to
Piotr Sz. pisze:

> Witam.
> Potrzebuje zawartosc pola Memo umiescic w jednej linijce jako String.
> Poszczegolne wiersze maja byc odseparowane znakiem |.
> Podpowiedzcie prosze jak to w miare prosto wykonac.
>

s := StringReplace(Memo.Lines.Text, #13#10, '|', [rfReplaceAll]);

Tomek

Arivald

unread,
Oct 22, 2009, 4:00:03 AM10/22/09
to
Tomek D pisze:


Zamiast Memo.Lines.Text radzę użyć Memo.Text. jest durzo szybsze
ponieważ unika się dzielenia tekstu na linie (żeby zbudować obiekt
Lines) i potem ponownego jego łączenia (w getterze właściwości Lines.Text).

--
Arivald

Piotr Sz.

unread,
Oct 25, 2009, 5:03:38 PM10/25/09
to
> s := StringReplace(Memo.Lines.Text, #13#10, '|', [rfReplaceAll]);

Dzieki serdeczne wszystkim za naprowadzenie.

--

Pozdrawiam
Piotr Sz.
piotr(@)szkut.com
www.szkut.com


0 new messages