[Crack502]

Есть прогамма.

При нажатии кнопки, если Эдит= '12345', происходит процедура.
Как сделать, чтобы Программа читала ('12345') из отдельного файла
и при необходимости можно было переписать '12345', например, в '54321'?
Нужно создавать DLL, в котором хранится '12345' или есть какой-либо другой способ?

[AND_REY]

Почему именно в DLL храниться 12345....
Можна хоть в *.txt или в *.*
Но желательно шифровать 12345....

[Biatov]

Я бы делал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // файл
fName: String[80];// имя файла
x:integer;
begin
fName:='test.txt';
AssignFile(f, fName);
Reset(f); // открыть для чтения
read(f,x);
Edit1.Text:=IntToStr(x);
CloseFile(f); // закрыть файл

end.

У тебя получается вводится текст 12345 из test.txt в поле Edit1. В текстовом документе такое:1 2 3 4 5

А что на счёт 54321 так вот:

Код:

 S:=Edit1.Text;
 N:=length(S);
  for i:= 1 to N div 2 do
     begin
      C:= S[i];
      S[i]:= S[N-i+1];
      S[N-i+1]:= C;
     end;
где в var прописываешь:
S:String;
C:Car;
N:Integer;

[Crack502]

Спасибо огромное! Попробую.
Но если это пароль, его же можно легко прочесть...
Как его зашифровать?

[Konrad]

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

Спасибо огромное! Попробую.
Но если это пароль, его же можно легко прочесть...
Как его зашифровать?

Если это пароль, то никто пароль не хранит в файле, а хранит хеш пароля.
На худой конец хотя бы MD5.
http://ru.wikipedia.org/wiki/Md5