---

Jeg skal have en string udfyldt med et tegn så hurtig så mulig. f.eks.:

function FillStreng(Antal : integer) : string;
var
i : integer;
begin
result:='';
for i:=1 to Antal do
result:=result+'x';
end;

var
MinLabel : TLabel;

MinLabel.Caption:=FillStreng(200);

denne løsning er for langsom så hvad gør man så?

Mvh
HK

---

"Harald" <news@kroning.dk> wrote in message
news:3f674ab6$0$32491$edfadb0f@dread16.news.tele.dk...
>
> denne løsning er for langsom så hvad gør man så?


function FillStreng(Antal : integer) : string;
var
i: integer;
begin
setlength(result,antal);
for i:= 1 to Antal do result[i]:= 'x';
end;

---

"Uffe Kousgaard" <uffe@routeware.dk> skrev i en meddelelse
news:3f674c63$0$83039$edfadb0f@dtext01.news.tele.dk...
> "Harald" <news@kroning.dk> wrote in message
> news:3f674ab6$0$32491$edfadb0f@dread16.news.tele.dk...
> >
> > denne løsning er for langsom så hvad gør man så?
>
>
> function FillStreng(Antal : integer) : string;
> var
> i: integer;
> begin
> setlength(result,antal);
> for i:= 1 to Antal do result[i]:= 'x';
> end;

Ja den er hurtigere, tak for det.

/HK

---

Og hvis det skal være helt vildt:

> function FillStreng(Antal : integer) : string;
> var
>
> begin
setlength(result, antal);
fillchar(result, sizeof(result), ord('X'));
> end;

/ Thomas Riedel

"Harald" <news@kroning.dk> wrote in message
news:3f674ab6$0$32491$edfadb0f@dread16.news.tele.dk...
> Jeg skal have en string udfyldt med et tegn så hurtig så mulig. f.eks.:
>
> function FillStreng(Antal : integer) : string;
> var
> i : integer;
> begin
> result:='';
> for i:=1 to Antal do
> result:=result+'x';
> end;
>
> var
> MinLabel : TLabel;
>
> MinLabel.Caption:=FillStreng(200);
>
> denne løsning er for langsom så hvad gør man så?
>
> Mvh
> HK
>
>

---

"Thor" <thr@image.danmark> skrev i en meddelelse
news:bk7nb0$1bvh$1@news.cybercity.dk...
> Og hvis det skal være helt vildt:
>
> > function FillStreng(Antal : integer) : string;
> > var
> >
> > begin
> setlength(result, antal);
> fillchar(result, sizeof(result), ord('X'));
> > end;

Jeg får en Access violation hvis jeg prøver det.

/HK

<klip>

---

"Harald" <news@kroning.dk> wrote:

>
>"Thor" <thr@image.danmark> skrev i en meddelelse
>news:bk7nb0$1bvh$1@news.cybercity.dk...
>> Og hvis det skal være helt vildt:
>>
>> > function FillStreng(Antal : integer) : string;
>> > var
>> >
>> > begin
>> setlength(result, antal);
>> fillchar(result, sizeof(result), ord('X'));
>> > end;
>
>Jeg får en Access violation hvis jeg prøver det.
>

Hvad så med:

function FillStreng(Antal : integer) : string;
begin
setlength(result, antal);
fillchar(result[1], sizeof(result)-1, ord('X'));
end;

--
Med venlig hilsen, Ove Kjeldgaard
Natur og Friluftsliv: <http://hiker.dk>

---

"Ove Kjeldgaard" <ok@newmail.dk> skrev i en meddelelse
news:r40fmv0tn2s3d2d48pl2cvlak03dm42o7v@4ax.com...
> "Harald" <news@kroning.dk> wrote:
>
> >
> >"Thor" <thr@image.danmark> skrev i en meddelelse
> >news:bk7nb0$1bvh$1@news.cybercity.dk...
> >> Og hvis det skal være helt vildt:
> >>
> >> > function FillStreng(Antal : integer) : string;
> >> > var
> >> >
> >> > begin
> >> setlength(result, antal);
> >> fillchar(result, sizeof(result), ord('X'));
> >> > end;
> >
> >Jeg får en Access violation hvis jeg prøver det.
> >
>
> Hvad så med:
>
> function FillStreng(Antal : integer) : string;
> begin
> setlength(result, antal);
> fillchar(result[1], sizeof(result)-1, ord('X'));
> end;

Sizeof vil altid give 4 som er størrelsen på result der jo bare er en
pointer, length giver længden af strengen. Men jeg har jo parameteren Antal
så dette her virker:
fillchar(result[1], Antal, 'x');
og det er _betydelig_ hurtigere end en for-next lykke, så jeg takker for
ideen

/HK

---

"Harald" <news@kroning.dk> wrote in message
news:3f679dbc$0$32541$edfadb0f@dread16.news.tele.dk...
> og det er _betydelig_ hurtigere end en for-next lykke, så jeg takker
for
> ideen

Ja, med sådan en løkke er lykken gjort

---

> denne løsning er for langsom så hvad gør man så?

Brug StringOfChar funktionen. Beskrivelse nedenfor.

/torben


function StringOfChar(Ch: Char; Count: Integer): string;

Description

StringOfChar returns a string containing Count characters with the character
value given by Ch. For example,

S := StringOfChar('A', 10);

sets S to the string 'AAAAAAAAAA'.

---

"Torben Friis" <tf@proinfo._dk_> skrev i en meddelelse
news:b8Cab.82762$Kb2.3570167@news010.worldonline.dk...
> > denne løsning er for langsom så hvad gør man så?
>
> Brug StringOfChar funktionen. Beskrivelse nedenfor.
>
> /torben
>
>
> function StringOfChar(Ch: Char; Count: Integer): string;
>
> Description
>
> StringOfChar returns a string containing Count characters with the
character
> value given by Ch. For example,
>
> S := StringOfChar('A', 10);
>
> sets S to the string 'AAAAAAAAAA'.

StringOfChar functionen er for langsom.

Mvh
HK