Kortere tjek

Skal du udtrække de sidste 2 cifre i et tal kan du bruge mod 100, fx.
x:= 43234 mod 100;
(så indeholder x 34).

det jeg vil er at tjekke om når brugeren højreklikker at fx. a35 indhold kan passe sammen det der er i a25 , a45 , a34 , a36
som et eksempel

Det hurtigste er nok at bit-maske dem ud altså tal and $00FF00 det \"masker\" kun tal igenen FF fordi alt and med nul bliver nul og alt and F giver det du and\'er med.

/Martin

det forstår jeg ikke kan du forklar det nermere

jeg kommer igen i mogen for jeg er nødt til at  sove jeg skal op kl.6
beklager

Yes !

8 decimalt er lig 0001 binært eller 08 hex så hvis du finder pladsen binært kan du sige de tal fra du vil se på eller under søge ved at bruge and
f.eks.

if ( $08 and $02 ) then

dette er den måde din computer regner på og er derfor det hurtigste du kan få.

prøv evt. at forklar dit problem lidt nærmere med et eks.

procedure TForm1.Button1.Click(Sender: TObject);
var g01,g01,....g99 : String;
error:integer;
begin
    if g01=g01 then
        Begin
        if g01=g11 then
            Begin
            End
            Else
            Begin
            Error:=Error+1;
            Memo1.Lines.Add(\'g01\')
            End
        End;
    if g02=g01 then
        Begin
        if g02=g03 then
            Begin
            if g02=g22 then
                Begin
                End
                Else
                Begin
                Error:=Error+1;
                Memo1.Lines.Add(\'g01\');
                End;
            End;
        End;
    End;
{sådan fortsetter det (de er som et gitter
    1  1234567890
    2  1234567890
    3  1234567890
    4  1234567890  ovs.}
end;

Er der virkelig ikke nogen der kan hjælpe mig

Mvh. Simon

Hvis du ikke kan bruge det jeg har skrevet så prøv lige at pensle det lidt mere ud.
Forstår ikke helt dit problem.

/Martin

i fire lag har jeg 100 variabler. og dertilhørende billeder i et 10x10 mønster (lagene er uden betydning for tjekket i langt de fleste tilfælde)
jeg vil gerne have en let måde at skrive på at programmet skal tjekke dem der står lige op og ned af hinanded om de er ens i værdi eller farve (variabelnavnmesigt);

Mvh. Simon

Hmmm....ikk forstået ????????


Martin

vis vi ser på minestryger
der er 8x8 felter
og 10 miner (i den der ligner mest det jeg skal bruge)
nu tager vi og siger at vi vil finde ud af hvor mange miner der grenser op til hvert felt.
nærmere kan jeg ikke sige det.

Mvh. Simon

Jeg er ikke helt sikker på jeg fatter en skid men det er sikkert ikke din skyld, jeg prøver lige at forklare mit bitmaske foreslag igen.

Vi leder efter en værdi der heder $0F00 hex
så laver du en if der ser sådan ud :

if ( X and $0F00 > 0 ) then
begin
 
end;

jeg tror det er noget af det hurtigste sammenligning du kan få, husk at du og kan kode asm direkte i din delphi kode.

/Martin

Kan man bruge dem sådan
if x=$0FAF
then
Begin
End;

Jeg lukker dette spørgsmaål snart men jeg mener at du (Martin) skal hve poengene eller i hvert fal nogle af dem men jeg fik ikke svar på mit egentlige spøgrsmål. men jeg fik aligevel lidt hjælp.

Mvh. Simon

Ja du kan teste en Var med AND og OR XOR osv.

if X = [Hex-tal] then
begin
end;

/Martin

Tak du får 10 poeng for dit brugbare svar

Mvh. Simon