SB
Там все странное. Я так и не понял, как этим пользоваться.
Size: a a a
2020 February 14
AI
Там все странное. Я так и не понял, как этим пользоваться.
Есть такая проблема :)
N
А за goto может ещё накинуть?
SB
Сделал так:
Temp: TTemporaryString;
begin
s := 'test';
dtStart := Now();
for i := 1 to TEST_COUNT do
begin
Temp.InitByteString();
Temp.Append('int=');
Temp.AppendInteger(i);
Temp.Append(' str=');
Temp.Append(s);
Temp.Append(' hex=');
Temp.AppendHex(i, 4);
ps := Temp.EmulateAnsiString();
end;
memo.Lines.Append('+string': ' + FormatDateTime('ss.zzz', Now() - dtStart));
memo.Lines.Append(ps^);
Temp: TTemporaryString;
begin
s := 'test';
dtStart := Now();
for i := 1 to TEST_COUNT do
begin
Temp.InitByteString();
Temp.Append('int=');
Temp.AppendInteger(i);
Temp.Append(' str=');
Temp.Append(s);
Temp.Append(' hex=');
Temp.AppendHex(i, 4);
ps := Temp.EmulateAnsiString();
end;
memo.Lines.Append('+string': ' + FormatDateTime('ss.zzz', Now() - dtStart));
memo.Lines.Append(ps^);
SB
Последняя строка - чтобы проверить, что там реально создается
SB
Быстро работает, 01.312 сек
SB
Но сложность чрезмерно избыточная
N
А через TStringBuilder?
SB
А через TStringBuilder?
А он есть для D7?
N
Нет
KB
У самого экшена покажи события
странно, но помогла перекомпиляция проекта и перезагрузка ПК... :(
DB
семь бед, один ресет, бывает ) главное что бы позже повторно не вылезло. что тоже бывает )
KB
я ПК не перезагражаю неделями, кстати и среда запущена тоже всё время
AS
странно, но помогла перекомпиляция проекта и перезагрузка ПК... :(
может, достаточно было перезапустить среду, в таком случае? )))
KB
ну... для наверняка уже )))
DB
DB
из коментов:
»Слишком много текста. На вопрос статьи можно ответить одним предложением. Почему мы пишем программы такого низкого качества? — Потому что бизнесу не нужно высокое качество, нам не ставят задачи сделать высококачественно, но ставят задачи сделать быстро, быстрее, еще быстрее и как можно быстрее.
Также косвенно влияет на низкое качество скрам. Не знаю как вы, а я где вижу скрам, там обязательно вижу километровый бэклог и быстро-быстрее-быстрее давай релизить, пофигу что не готово, нам надо быстрее, а то иначе не дай боже кто-то где-то сделает быстрее нас и всё, наступит конец света и нас всех уволят.
>Кстати, это убеждение совершенно идиотское. «Кто первый встал — того и тапки» работает лишь в отдельных сегментах, притом с длиннющим списком условий. Чаще всего происходит наоборот — успеха добивается тот, кто позволил торопыгам первыми выкатить на рынок сырой продукт, а потом выкатил свой законченный.DB
ну вот мы как-то ближе ко вторым
DB
коменты на хабре как это часто бывает хорошо дополняют статью :)
Юнит тесты гоняют на общей базе данных, оптимизируют код на миллисекунды, а запросы к базе отрабатывают по 5 минут.DB
там же ссылка на код прикольная:
https://catless.ncl.ac.uk/Risks/31/57#subj22
if (angle < 270.0) quadrant = 3;
else if (angle > 270.0) quadrant = 4;
https://catless.ncl.ac.uk/Risks/31/57#subj22
if (angle < 270.0) quadrant = 3;
else if (angle > 270.0) quadrant = 4;