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
Kodning af element i custom css Af Jacob Hedelund i Andet programmering	3	14/10/202410:35	14/10/202419:46
Delphi 11 - converter webp til jpg fil Af juzas i Andet programmering	5	12/10/202413:28	14/10/202403:54
Trim tekst i batch script Af Dan Elgaard i Andet programmering	5	05/09/202411:08	10/09/202415:29
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

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

20:00

Ugen i tech: Teslas to-sæders robot-taxa fylder godt i trafikken / Nu kommer Googles AI til din iPhone

15/11

Test: Audi Q6 er en super fed SUV - men gør dig selv en tjeneste og kast flere penge efter den

15/11

Stor sag mod Microsoft kan være på vej: Beskyldes for at låse Azure-kunder fast med ulovlige metoder

15/11

Det vrimler frem med gratis-alternativer til ChatGPT Plus – her er de bedste af dem

15/11

Nørgaard: Lad os pudse Trump på DSB’s signalprogram og Ejendomsvurderingerne - men først efter han har øvet sig på at løse store problemer

15/11

Vil nedlægge central cybersikkerheds-myndighed i USA: Hæmmer ytringsfriheden

15/11

Ny aftale: Folketinget klar med milliarder til digitalisering af sundhedsvæsenet - se planerne her

15/11

Kaotisk it-projekt til 300 millioner kroner til danske skoler afsluttes efter flere års forsinkelse: Har mistet overblik over økonomien

15/11

Offentligt eller privat? Her er 10 ledige it-stillinger, som du kan søge lige nu

15/11

Danske sygehuse når ikke at opgradere tusindvis af computere til Windows 11 i tide: Får konsekvenser for it-sikkerheden

15/11

De har stor succes med selv at uddanne deres ERP-folk: Sådan fungerer uddannelses-ordningen hos selskabet

Vis flere artikler

IT-JOB

Ejner Hessel A/S

Tech Lead

Udviklings- og Forenklingsstyrelsen

Projektleder til komplekse IT-infrastruktur og implementeringsprojekter

Jyske Bank

Er du klar til at optimere processerne med RPA hos Jyske Finans?

Unik System Design A/S

Ansvarlig UX’er med grafisk talent søges

Matas A/S

Technical Project Manager in Matas Group Digital

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 14:55	Kan ikke afspille videoer overført til PC fra IPhone Af Malm i Andet software
I går 22:42	Ældre version af windows media player Af absalon i Windows
I går 20:04	Hvilket headset kan recommenders? Af BlåAbe i Andet hardware
I går 15:33	HTML-LINKS Af snestrup2000 i Webservere
I går 14:57	HEIC og HVCE Af puren i Billedbehandling