CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

futterama Nybegynder

29. juli 2005 - 23:52 Der er 9 kommentarer og
1 løsning

Fra HEX værdi til binær værdi

Hej,

Jeg skal have konverteret en streng som HEX værdi f.eks. '1111' til binær, dvs. 1111H bliver til 0001000100010001B som streng i f.eks. en TEdit. Input 1111H kommer f.eks. også fra en TEdit.

Jeg har forsøgt mig lidt her:
http://eksperten.dk/spm/5884

Men jeg kan ikke hitte ud af at lave en const = $1111 til en variabel (gerne int) og det andet eksempel, der melder Delphi 7 fejl ved IntPower om "Operator not applicable to this operand type".

Nogen der kan hjælpe med de eksisterende eksempler eller med helt nye?

MVH
Futterama

Synes godt om

arne_v Ekspert

29. juli 2005 - 23:58 #1

hex string -> integer:

v := StrToInt('$' + s);

hvor s kun er hex cifrene.

integer -> binary string:

s := IntToBin(v);

hvor:

function IntToBin(Value : Integer): String;

var
tmp : Integer;
digits : array [0..1] of char;

begin
tmp := value;
digits[0] := '0';
digits[1] := '1';
Result := '';
while tmp > 0 do begin
Result := digits[tmp and 1] + Result;
tmp := tmp shr 1;
end;
end;

Synes godt om

futterama Nybegynder

30. juli 2005 - 12:35 #2

arne_v: Dit eksempel virker, dog ikke helt efter hensigten, jeg skal også bruge "leading zeros" i den binære representation. Men ved brug af v := StrToInt('$' + s); kan jeg tilrette pointwoods eksempel så det virker.

Tak for hjælpen, hvis du lægger et svar så kan jeg give dig point.

Synes godt om

nielle Nybegynder

30. juli 2005 - 12:40 #3

Du kan også skrive:

Console.WriteLine(Result.ToString().PadLeft(8, '0'));

Synes godt om

arne_v Ekspert

30. juli 2005 - 12:51 #4

svar

Synes godt om

arne_v Ekspert

30. juli 2005 - 12:51 #5

nielle>

Console.WriteLine i Delphi 7 ?

Synes godt om

futterama Nybegynder

30. juli 2005 - 14:55 #6

arne_v, kan man omskrive dit eksempel til at medtage "leading zeros"? Jeg har arbejdet lidt videre med det andet eksempel, men det er opbygget uhensigtsmæssigt i forhold til mit brug. Jeg skulle gerne ende med en funktion der returnerer en streng med 1'er og 0'er og tager en streng med en HEX-værdi som argument.

Synes godt om

arne_v Ekspert

30. juli 2005 - 14:57 #7

ja - hvis du erstatter while løkken med en for løkke

Synes godt om

arne_v Ekspert

30. juli 2005 - 14:58 #8

while tmp > 0 do begin
Result := digits[tmp and 1] + Result;
tmp := tmp shr 1;
end;

->

for i := 1 to 32 do begin
Result := digits[tmp and 1] + Result;
tmp := tmp shr 1;
end;

Synes godt om

nielle Nybegynder

30. juli 2005 - 18:08 #9

30/07-2005 12:51:21> Nej, selvfølgelig ikke (med mindre at det da er Delphi.NET ;^)

Synes godt om

futterama Nybegynder

30. juli 2005 - 19:11 #10

Tak for svarene, jeg har nu det jeg skal bruge :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering	2	29/04/202416:05	30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering	4	25/02/202407:13	28/02/202420:56
Bat fil Af sjass i Andet programmering	5	15/01/202417:45	15/01/202420:35

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

26/07

Test: Endelig kan man få en soundbar der lyder godt - og som ikke behøver nogen klodset subwoofer

26/07

Analyse: ”Det største it-nedbrud i historien” viser hvor sårbare dine it-løsninger er - og det vil ske igen

26/07

Nørgaard: Jeg har jo sagt det gang på gang på gang! VMS er det bedste styresystem EVER! Men lytter folk?! Nej, nej og atter nej!

26/07

Kæmpeleverandør til Pentagon hacket: Interne undersøgelser lækket

26/07

Stor aftale gør Microsofts datacentre hurtigere - investerer i netværksudstyr

26/07

Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"

26/07

Mød den unge version af den mest elskede seriemorder nogensinde

26/07

AMD opdager cpu-fejl i 11. time: Storstilet lancering udskydes

26/07

Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence

26/07

Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?

26/07

Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"

Vis flere artikler

IT-JOB

Region Midtjylland

Gør en forskel som License Manager

Jyske Bank

Engageret forretningsudvikler søges til Data Warehouse

Politiets Efterretningstjeneste

Netværks- og/eller firewallspecialister til PET

Netcompany A/S

Software Developer

Udviklings- og Forenklingsstyrelsen

Backend-udvikler til ny platform i Azure

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:09	Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I går 17:33	Facebook kopier en tråd Af clausito i Sociale medier
I går 09:49	Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I går 03:28	Inkasso som privat? Af lekor adams i Fri debat
26/0723:51	Frossen cursor Af goglov i PC