Entwickler-Ecke
Sonstiges (Delphi) - Code Umwandler
markµs - Fr 20.06.03 02:21
Titel: Code Umwandler
Hi leute! :)
Ich hab zum Bsp. diesen Code: %8E%08c%E4 den ich in 2881 umwandeln möchte! :shock:
Den "Algorithmus" hab ich auch schon:
Ich schaffs aber nicht ein Delphiprogramm zu machen das die Codes umwandeln kann :cry:
könnt ihr mir helfen?
Ich poste nochmal ein par andere Umwandelbeispiele:
%8B%00k%E7 -> 7002
%8B%07j%E0 -> 7715
%8E%06k%E0 -> 2605
%8E%05b%E7 -> 2592
%8A%08k%E0 -> 6805
%8D%01m%EC -> 1169
%8B%09h%E7 -> 7932
%89%02i%E7 -> 5222
%8E%01j%E4 -> 2111
D A N KE ! :lol:
Hoda - Fr 20.06.03 08:47
Hi markµs,
bekommst du den Code als String übergeben?
Und meine zweite frage ist : Warum wird bei dem ersten %8E das "E" genommen, bei dem zweiten %08c das "8c" und beim dritten %E4 das "4" ?
Kann sich das ändern ?
Gruß,
hoda
markµs - Fr 20.06.03 14:51
| Hoda hat folgendes geschrieben: |
Hi markµs,
bekommst du den Code als String übergeben?
Und meine zweite frage ist : Warum wird bei dem ersten %8E das "E" genommen, bei dem zweiten %08c das "8c" und beim dritten %E4 das "4" ?
Kann sich das ändern ?
Gruß,
hoda |
ja, als string, dann zu deiner zweiten frage, bin mir nicht sicher ob ich sie ganz verstanden habe.. :
alles was grau ist spielt keine Rolle und muss nicht beachtet werden, die drei blöcke (%8, %0, %E) bleiben auch immer so, nur die farbigen ziffern variieren, zum beispiel beim grünen "c" wie du in meiner tabelle sehen kannst bedeutet es wenn ein "c" an der Stelle ist das eine "8" in dem vierstelligen code an 3. stelle ist!
ich hoffe es wahr verständlich :cry:
Dron48 - So 22.06.03 23:28
ich bin ja keiner delphi programmer, aber im pascal würde ich dem string zerschneiden, also mir die 3. 6. 7. 8. chars rausnehmen und durch IF umwandeln, die chars zu einem string verkleben und mit val zu integer machen
Hoda - Mo 23.06.03 12:52
Hi markµs,
hier ein Beispiel code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var strTemp: String;
Str1 : Array [1..3] of String;
i : integer;
begin
strTemp := '%8E%0Ec%E4';
If strTemp <> '' then
For i := 1 to 3 do begin
delete(strTemp,Pos('%',strTemp),2);
str1[i] := Copy(StrTemp,1,Pos('%',strTemp)-1);
delete(strTemp,1,Pos('%',strTemp)-1);
if Pos('%',strTemp) = 0 then
str1[i] := strTemp;
end; |
desweiteren musst du die Werte in str1[i] mit den Werten in der Tabelle vergleichen ! :roll:
Gruß,
hoda
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!