procedure hash( *dana:char);
var
x:integer;
begin
while dana^ 0 do
begin
x := (x and $ffffff00); or dana^;
end;
end;
Czy ktoś mógłby mi pom<font color="red">[b]u[/b]</span>c naprawidz ten kodizk. U mine to nie działa i nie wiem dlaczego ?? [stuk]
procedure hash( *dana:char);
var
x:integer;
begin
while dana^ 0 do
begin
x := (x and $ffffff00); or dana^;
end;
end;
To wygląda jak Pascal++ :P
procedure Hash(Dana: PChar);
var
x: Integer;
begin
x:=0;
while Dana^ #0 do begin
x:=(x and $FFFFFF00) or Dana^;
Inc(Dana)
end
end;
Sorki że dalej truje ale ciągle wywala mi bład w pewnej linijce::|
x:=(x and $FFFFFF00) or Dana^;//tu jest bład i nie wiem dlaczego
[Error] Unit1.pas(31): Operator not applicable to this operand type