Mit deinem Code DadyH bekomme ich hexa Zeichen !
Und wenn das Feld leer ist, bekomme ich Error deswegen
versuche ich nur Zahlen zu übernehmen :
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var
i,l1,l2,l3 : Integer; // diesmal l1 bis l3 als Integer
feld1,zeichen1,zeichen2: String;
begin
feld1:=Edit1.Text;
l1 := strToInt(Feld1[1]);
l2 := strToInt(Feld1[2]);
l3 := strToInt(Feld1[3]);
if (l2 in [0..9]) then
zeichen1 := Chr(Ord(l2) + 49); // gibt nicht die gewünschte Buchstabe
// zeichen 2
...
if (l2) or (l3) <> [0...9] then
zeichen1:='';
zeichen2:='';
Edit2.Text:='inf=' +IntToStr(l1) +IntToStr(l2) +IntToStr(l3) + '-' + zeichen1 +zeichen2;
end;
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
Edit1.Text := Format('%.3d', [UpDown1.Position]);
end;
end.