Code: Alles auswählen
var
p: byte = 0;
Code: Alles auswählen
case p of
0: begin
n := c div 1000;
end;
1: begin
n := c div 100 mod 10;
end;
2: begin
n := c div 10 mod 10;
end;
3: begin
n := c mod 10;
end;
end;
Code: Alles auswählen
Project1.pas(24,1) Error: Error while linking
Code: Alles auswählen
if p = 0 then begin
n := c div 1000;
end else if p = 1 then begin
n := c div 100 mod 10;
end else if p = 2 then begin
n := c div 10 mod 10;
end else if p = 3 then begin
n := c mod 10;
end;