Не понимаю!
Почему я не могу работать с переменными а с визуальными компонентами получается.



Таким образом почемуто не работает хотя понятно что этот вариант быстрее чем ниже следующий



Понятно что первый вариант быстрее т.к. там через переменную, а здесь через визуальный компанент. Почему не работает первый вариант? И как зделать чтобы работал?

Не понимаю!
Почему я не могу работать с переменными а с визуальными компонентами получается.


Таким образом почемуто не работает хотя понятно что этот вариант быстрее чем ниже следующий



Понятно что первый вариант быстрее т.к. там через переменную, а здесь через визуальный компанент. Почему не работает первый вариант? И как зделать чтобы работал?

Потому что компонент сам тебе выделяет память под новый символ. А чтобы переменная так могла, используй SetLength. В данном случае будет следующий код:

и всё будет работать.

Это сообщение отредактировал(а) Guedda - 8.1.2007, 10:42

а может первый вариант сделать так 

что то утебя не понятно что ты  хочешь сделать

поясни

быстрей ответ получишь

а какие значения у тебя в str1 и str2 ты ничего не присваиваешь str1 в цикле 
если правильно понял тебя то



и навсякий случай очищай переменные

перед работай 
str1:='';
str2:='';


Это сообщение отредактировал(а) marykone - 8.1.2007, 10:44

если хочешь в caption i выводить то используй inttostr(i) str1 тебе и не нужна тогда


str2:=str2+' '+inttostr(i)

и полюбому обнули str2:='';

И кстати если не ошибаюсь caption то у тебя бааальщой получится если ты 3000 раз к нему прибавишь его предыдущее да есчо и  i. 

2-й пример понятно что делает, а 1-й собссно ничего помоему полезного..... прибавляет к неинициализорованной str2 такуюже str1



Это сообщение отредактировал(а) pankerstein - 8.1.2007, 10:59

Кстати, а в чем смысл Chr(3000)? Я провел опыт, похоже, что символы циклически повторяются
Chr(X)=Chr(X mod 255)

А как он будет работать?
Что такое str1? Чему оно равно?
А во втором примере - что за chr(3000)?
Оба примера неправильные.
Объясни, что ты хочешь получить?

Добавлено @ 13:36 
ЗЫ. И варнинги компилятора читай - тебе же пишут - str1 may be not initialized (ну или что-то в этом роде).

Guedda, 


Зачем вручную выделять память под string? насколько я помню, string - это динамически изменяемая строка длиной от 1 до 2 миллионов символов. Кажется выделять память нужно только под pchar.. Или как?

Да. Это так.

Чтобы у программистам было легче. Это связано, как мне кажется, с возможность шифрования типа a:=chr(ord(b)*10)

Извините в первом примере напутал 

вот

procedure TForm1.Button1Click(Sender: TObject);
var
str1 : string[1];
str2 : string;
i : integer;
begin
for i := 1 to 3000 do
begin
str1 :=chr(i);
str2 := str2+' '+str1;
end;
label1.Caption := str2;

теперь объясню! Просто числовое значение i использую как код символа str1 :=chr(i) и присваиваю  
str1. На самом деле делаю лабу по предмету криптография. А это кусочек кода просто ради примера. Оригинальный примерно такой же только переменные другие, и исходный текст предшествующий большой.

Вот на счет SetLength идея верная только что то пока не получается, хотя я и заранее устанавливал значение str2, ведь известно, что цикл до 3000 тогда SetLength(Str2, 3001);

Подскажите, может, как ни будь еще можно резервировать память под переменную. Хотя вроде String позволят хранить строку до 2 гб.

вообще-то chr это один байт - до 255.
Выше не бывает.
Так что объясни, что ты хочешь от этого кода.

Snowy,  Бывает если на пример chr(257) то выведется символ с кодом #1. А хочу я чтобы все значения str1 в цикле присваивались str2

str2:= str2+str1;

RinOSpro, Chr(1) = Chr(257)... 

Далее, в случае...

Необходимо

Т.е. от 1 до 3000 есть 3000 (3001 это если от 0) символов и столько же пробелов

что-то я не очень понимаю, чего хочет добиться автор кода в итоге)
но я бы написал этот кусок кода так:

будет работать 100% быстрее, чем просто lStr2 := lStr2 + lChr;

Это сообщение отредактировал(а) MetalFan - 9.1.2007, 19:00

Ну ёклмн это же просто элементарно 

str1 := chr(i)

str2 := str2+str1

получится все значения записываются подряд в одну и туже переменную

a б в г и так далее.

Вопрос в том почему str2 := str2+str1 такая запись не работает хотя такая label1.caption :=  label1.caption + str1; работает.

может память выделить надо!