[Delphi] Szybkie dodawanie # do memo

Powiedzmy ze mam memo :-) no i w nim jakis text no i chce zrobic aby reszte memo wypelnic # . Moze na przykladzie bedzie latwiej opisac :-)

var
i,Liczba_w_memo, max_liczba_w_memo : integer;
begin
Memo1.Text := 'Jakis text ziomalowski';
max_liczba_w_memo := 10240; //rowniotkie 10kb
repeat
Memo1.Text := Memo1.text+'#';
liczba_w_memo := Length(Memo1.Text);
until max_liczba_w_memo = liczba_w_memo;
end;

Mysle ze teraz mnie rozumiecie :-) To co napisalem dziala ale strasznie wolno :| jak to mozna zrobic aby bylo szybciutkie (pare sek no moze do 10) :-)

--
pozdrawiam PEDROS {hello}

Encyklopedia was potrzebuje:
www.4programmers.net/delphi/help.php

Delphi 6 Personal.

var
S : array[0..10240] of Char;
begin
FillChar(S,SizeOf(S)-Length(Memo1.Text),'#');
Memo1.Text := Memo1.Text + S;
end;

jak popelnilem blad to prosze o poprawienie mnie :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS zloty czlowiek z ciebie. Dziala jak burza :-) Tylko lepiej bedzie jak bedzie arrat [0..10239]of char; //bo jak bylo 10240 to w sumie bylo o 1 znak za duzo bo liczy sie od 0. Tez zawsze o tym zapominam :-)

--
pozdrawiam PEDROS {hello}

Encyklopedia was potrzebuje:
www.4programmers.net/delphi/help.php

Delphi 6 Personal.

nie
var
S : array[0..10240] of Char;
tylko:

var
s: array of Char;

begin
SetLength(s,10239);
//reszta;
emd;
--||===

Jeszcze jeden przydatny trick jak sie dodaje duzo do memo, richedit i innych (np listview)

Na poczatku:
Memo1.Lines.BeginUpdate;
//petla dodajaca do Memo
Memo1.Lines.EndUpdate;

oczywiscie tym razem sposob lks-a jest najlepszy :)))) {brawo}
--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1