zły odczyt z ini

<delphi> for i := 1 to Length(Edit11.Text) do
begin
tekst:=tekst+'0'+(IntToStr(Ord(Edit1.Text[i]))); // kod ASCII litery Char
end;
plik.Writestring('haslo','wartosc',tekst);

dla litery a zapisze 087

i teraz gdy odczytuje w ten sam sposób
haslo:=plik.ReadString('haslo','wartosc','');
for i := 1 to Length(Edit1.Text) do
begin
tekst:=tekst+'0'+(IntToStr(Ord(Edit1.Text[i]))); // kod ASCII litery Char
end;
if haslo=tekst then
begin
form4.Close;
end
else
begin
showmessage(tekst);// to dla sprawdzenia dlaczego nie działa

wyśiwetla mi 097 może ktoś wie dlaczego

Twój sposób odczytywania jest zupełnie bezsensowny. Musisz lecieć co 3 znaki i każdą trójkę zamieniać na liczbę przez StrToInt, a potem Chr na tym i dodawać do całości.

Twój sposób odczytywania jest zupełnie bezsensowny. Musisz lecieć co 3 znaki i każdą trójkę zamieniać na liczbę przez StrToInt, a potem Chr na tym i dodawać do całości.

do ini zapisanu jest zakodowany tekst ja go odczytuje przypisując zmiennej, potem koduje to co jest w edicie i porównuje czy są równe. Kiedyś już tak robiłem i wszystko grało wczoraj już nie działało. I zastanawiam sie dlaczego

// to wyżej to też ja tylko zapomniałem sie zalogować

// już chyab znalazłem błąd bo przy zaisie mi zawsze to samo zapisuje musze to sprawdzić