| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

чем заменить s:=chr(1)+chr(1).....+chr(1) [D7, WinXP]

Страницы:   < 1 2 >

lena19 ©   (2004-06-14 23:48:00) 

всем привет
народ с помощью какой функции или процедуру можно в строчную переменную загнать некоторое колличество одинаковых символов

---

default   (2004-06-15 00:09:00) [21]

Fay ©   (15.06.04 00:05) [11]
"длинна" - это правильно...

---

default   (2004-06-15 00:06:00) [22]

KilkennyCat ©   (14.06.04 23:56) [7]
где-то в 3 раза быстрей предыдущего за счёт пересылки по 4 байта в FillChar-е, (Len mod 4) байт пересылаются по одному

---

Fay   (2004-06-15 00:05:00) [23]

Блин! Меня колбасит! 8) За 15 минут уже встретил:
правдо
лудше
цыкл
длинна

Круто!

---

lena19   (2004-06-15 00:05:00) [24]

TO DrPass
ето очень мудрое замечание а то дай тока повод сечас и  объекты задействуют :-)

---

default   (2004-06-15 00:04:00) [25]

procedure FillString(var Str: String; Ch: Char; Len: Integer);
begin
SetLength(Str, Len);
FillChar(Str[1], Len, Ch)
end;

---

DrPass   (2004-06-14 23:58:00) [26]

> 1)цикл
> 2)возможно ,конкатенацией строки "саму себя с собой"

Это слишком сложно. По возможности надо бы обойтись без таких сложных профессиональных терминов, как "цикл" (и упаси боже, "конкатенация")

---

KilkennyCat   (2004-06-14 23:56:00) [27]

установить длинну строки и FillChar ?

---

VMcL   (2004-06-14 23:55:00) [28]

>>lena19  (14.06.04 23:48)

System.StringOfChar()
StrUtils.DupeString()

---

lena19   (2004-06-14 23:55:00) [29]

с цыклом я и зделала но неужто нет готовой проседуры ???

---

KilkennyCat   (2004-06-14 23:55:00) [30]

> Fay ©   (14.06.04 23:53) [3]


честно говоря, не знаю. Попробую сравнить.

---

Fay   (2004-06-14 23:53:00) [31]

2KilkennyCat ©   (14.06.04 23:53) [2]
>> 2)возможно ,конкатенацией строки "саму себя с собой"
А это не слишком медленно?!

---

KilkennyCat   (2004-06-14 23:53:00) [32]

1)цикл
2)возможно ,конкатенацией строки "саму себя с собой"

---

Fay   (2004-06-14 23:52:00) [33]

что-нибудь типа этого
procedure Special4u(var s : string; c : Char; n : Integer);
var
 i : Integer;
begin
 SetLength(s, n);
 for i := 1 to n do s[i] := c;
end;

---

Страницы:   < 1 2 >

Наверх