Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Edit char komisches zeichen
MagicRain - Sa 11.07.09 14:05
Titel: Edit char komisches zeichen
Hallooo Leute! Ich habe ein kleines problem und zwar möchte ich einen String in verbindung mit XOR verändern und wieder aus geben Char für char nur leider ist dort ein kleiner fehler vorhanden.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var
i1, A, : INTEGER;
B, : STRING;
begin
A := 0;
ANYTEXT := (Txt1.text);
for i1 := 0 to Length(ANYTEXT) do
begin
A := Ord(ANYTEXT[i1]);
A := A XOR $10;
B := B + Char(A);
end;
Edit2.text := B
end; |
Funtkioniert ja auch so weit bloß leider bekomme ich folgende ausgabe:
Moderiert von 
Narses: Bild als Anhang hochgeladen.
TEXT : ellyblakakabnla
GETW :
U\\IR\Qt; das eine zeichen sollte da nicht hin aber ist da wieso nur ?
MfG danke für hilfe...
Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Mo 13.07.2009 um 18:33
Marc. - Sa 11.07.09 14:09
Strings beginnen immer bei 1! ;)
MagicRain - Sa 11.07.09 14:46
Oh man hätte ich auch drauf kommen müssen ne ne DANKE! :oops: :oops: :oops: :lol: :lol: :lol:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!