5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

モナーの *やさしい* Delphi質問スレ Ver.14

635 :559:03/04/25 18:09
>>632
ついにできました!!
感激です。
小さなミスをたくさんしていました。
書き込み
S1 := Edit1.Text;
siz := Length(S1);
for i:=1 to siz do
begin
i2 := Ord(S1[i]) xor 23;
WriteString('Passward', IntToStr(i), IntToStr(i2));
end;
読み込み
while ValueExists('Passward', IntToStr(i)) do
begin
i1 := StrToInt(ReadString('Passward', IntToStr(i), Edit1.Text));
i2 := i1 xor 23;
S := S + Chr(i2);
Inc(i);
end;
Edit1.Text := S;
EraseSection('Passward');
で完了です。
ほんとうにありがとうございました。


209 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)