-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
2. Dez 2005
Hehe :D cool,
vielen vielen Dank an Daniel Schuhmann ^^
Diese procedure ist wirklich nützlich.
Super und nochma danke, dass du sie hier gepostet hast ^^
So ist das Proggy doch viel netter ^^ *freu*
Also nochmal vielen Dank für all eure Hilfen und Tipps ^^
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
1. Dez 2005
Hi ichbins,
also das mit der grafik is nix weiter als ein Formular ohne border. Da hab ich einfach en Image, das ich in Photoshop erstellt habe draufgeklatscht also mitm TImage oder wie das dingens da heißt ^^ Ja das is es eigentlich auch.
Ja und wie du wohl bemerkt hast, kann man da noch nix verschrieben, das hab ich noch net gemacht :/ kommt aber noch ^^
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
So also ich habe es geschafft ^^
War eigentlich ganz simpel ^^
Statt Edit2.Text := var; habe ich nun das geschrieben:
Form1.Edit2.Text := var;
Und schon keine Errors mehr - PS: das mit dem Format('%x',); is super, schön, dass Delphi das hat, braucht man keine eigene Funktion mehr dafür ;)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
ja also jetzt geht ja schonmal alles bis auf die ausgabe, die is nochn bissel blöde.
sollte dann halt doch in edit2 stehen. :/
Also wenn wer noch ne Idee hat - ich bin dran interessiert ^^
Und danke an ichbins und an Hudel1965 :D
Mal sehn obs heut noch fertig wird ;)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
ok also jetzt bleibt der debugger doch bei der hexumwandlung stecken, nachdem ich edit1 gleich am anfang einlesen lasse. dafür schonmal danke! :)
Und hast ja auch gesagt, dass diese Umwandlung nur bis zu nem best. Wert funktioniert.
Also wie kann ich dann große Zahlen in Hex umwandeln lassen?
Schonma danke für die Antwort ;)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
ja nur hexes is halt bei mir en array kein string- denk aber, dass die umwandlunk funktionieren sollte.
Oder nicht? also leider noch keine Lösung gefunden.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
so also mein aktueller quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i,cha:integer;
serial:string;
neu:integer;
const
hexes:array of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
ok leider doch noch kein erfolg.
das mit dem $-Zeichen will nicht so ganz.
meinevariable := $zahl; // Dann erhalte ich folgende Fehlermeldung: Unit1.pas(59): E2066 Operator oder Semikolon fehlt
meinevariable ist ein integer
ich habe auch mal string ausprobiert geht aber auch nicht.
Was für ne Variable brauch ich denn, um ein HEX-Wert aufzunehmen?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
30. Nov 2005
Ok vielen Dank!
Habe jetzt Frage 1 auch schon rausgefunden und danke für das $ für Hex ^^
So ich probiers jetzt nochma aus :D
Vielen Dank für alle Antworten.
cöö
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
29. Nov 2005
So also hab schonma rausgefunden wie ichn char in en interger bekomme.
Hier mal mein derzeitiger Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
EAX,EBX:real;
serial:string;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
29. Nov 2005
Hi,
hab doch noch einmal eine Frage:
Und zwar weiß ich nicht, wie die geeigneten Funktionen in Delphi heißen für:
tempChar = Asc("a")
Und zwar ist das Visual Basic und die Funktion Asc wandelt a in eine Intergerzahl um.
2. serial = Hex(123854)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
29. Nov 2005
ok vielen Dank für deinen Beitrag.
Das ist genau das, was ich gerne gewusst hätte.
Also vielen Dank :D
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
29. Nov 2005
ja mein letzter post enthält ja auch die version, die ich nicht gerne hätte, sondern die Assembler Version.
Kann mir hier bitte jemand schreiben, wie ich Assembler code in Delphi verwenden kann?
Also bitte anhand des Beispiels, das ganz am Anfang steht.
Schonma Danke ^^
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
28. Nov 2005
ok ich möchte ja kein komplettes programm es geht mir um die funktion.
For i = 1 to len(txtName.text)
EAX = Asc(Mid(txtName.text,i,1)) 'Get char
EAX = EAX Xor 201527 'Note This might not work with big numbers (Xor)
EAX = EAX + 3735928559
EAX = EAX * 1638
EAX = EAX - 464370355
EAX = EAX * (2^3) 'SHL EAX, 3 ... EAX * 8 .. SHL is the same as EAX * 2^N
...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by KSebi,
28. Nov 2005
Einen schönen guten Abend an die Delphi Gemeinde hier.
Und zwar habe ich hier ein Programmquellcode, der einen Serial berechnet.
Anfolgend würde ich gerne den vom Programm erstellten, mit der Benutzereingabe abgleichen.
Das Problem ist, dass der Quellcode in PUREBASIC geschrieben ist.
Zudem sind Assembler Anweisungen enthalten.
Ich hoffe, dass es hier jemden gibt, der mir helfen kann,...