[bragol]

access violation at address 00471b35 in module 'project1.exe'. read of adress 000002f8.

вот код. В переменную типа стринглист из текстового файла загружается зашифрованная строка, которая далее записывается в расшифрованном виде в эдит, но вот на предпоследнюю строчку выползает ошибка, не подскажите как ее устранить или может быть это из-за несовместимости типов строки и текста?

STR:= TStringList.Create;

dir:=GetCurrentDir;
adr:=dir+'\system.txt';
str.LoadFromFile(adr);

w:=str.Strings[0];

form2.Edit1.Text:=Decrypt(w,StartKey,MultKey,AddKe y);
str.Free;

[lmikle]

Код:

w := str[0];

И проверь в отлдадчике, что у тебя созданы все объекты, к которым ты обращаешься.

[bragol]

и твой и мой вариант рабочие, это проверенно
все создано w:string
да и не на эту строку ругается

[Aristarh Dark]

Ошибка в функции Decrypt, ищи там.

[bragol]

устранил ошибку, но не понял ее причину, все было из-за того, что представленный код был на теле формы 1, а эдиты располагались на второй форме, я просто напросто перенес код на форму 2

[lmikle]

Ага, и код выполнялся в обработчике OnCreate формы 1. В этот момент форма 2 еще не создана, вот ты и получал сообщегие об ошибке.

[bragol]

Сообщение от lmikle

Ага, и код выполнялся в обработчике OnCreate формы 1. В этот момент форма 2 еще не создана, вот ты и получал сообщегие об ошибке.

почему не создана, она создана, просто свойство visible:=false по дефолту, если его изменить на противоположное, то появляются обе формы одновременно, насколько я знаю и насколько видно из кода проекта...