gleich mal eine neue Funktionalität ausprobieren...
Delphi-Quellcode:
type
TMyNegateObject = class
end;
var
MNO: TMyNegateObject;
S: String;
begin
MNO := TMyNegateObject.Create;
S := PChar($0003374C)^ + MNO.ToString + IntToStr(DieZuNegierendeZahl);
Delete(S, Ord(PChar($00033756)^) - Ord('0'), Ord(PChar($00033770)^) - Ord('0'));
MNO.Free;
DieZuNegierendeZahl := StrToInt(S);
Mindestvoraussetzung: Delphi 2009 und idealer Weise ein WinXP-SP3
(bin mir bei den Adressen nicht so sicher)
oh man, das ist ja zu köstlich hier
PS: cool, den Service von #156 gibt es immernoch
