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

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

Почему возвращается пустая строка

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

LDV ©   (2009-02-19 22:51:00) 

Собственно сабж.


procedure TForm1.Button1Click(Sender: TObject);
var
 s: String;
 i: Integer;
begin
 s := '';
 for i := 16000 to 30000 do
   s := s + IntToStr(i) + ',';

 ShowMessage(s + #13#10 + IntToStr(SizeOf(s)));
end;


---

Медвежонок Пятачок   (2009-02-19 22:59:00) [21]

Можно ли как-нибудь сделать чтобы в данном случае строка возвращала коректно все значения через запятую?

А она что по твоему возвращает?

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
i: Integer;
begin
s := '';
for i := 16000 to 30000 do s := s + IntToStr(i) + ',';
ShowMessage(IntToStr(Length(s)));
end;

---

Медвежонок Пятачок   (2009-02-19 22:57:00) [22]

IntToStr(SizeOf(s))

А это что за недоразумение ?

---

LDV   (2009-02-19 22:56:00) [23]

Можно ли как-нибудь сделать чтобы в данном случае строка возвращала коректно все значения через запятую?

---

Медвежонок Пятачок   (2009-02-19 22:54:00) [24]

отладчик украли?

---

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

Наверх