Ich habe das Problem gelöst
aber mit einem lagen Code
Also ich möchte nur letzte 2 Zeichen durch bestimmte Buchstaben ersetzen :
Vielleicht kann jamand den Code verkürzen
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var
//i : Integer;
feld1, l1,l2,l3,zeichen1,zeichen2: String;
begin
feld1:=Edit1.Text;
//for i:=0 to 10 do
l1 := Feld1[1];
l2 := Feld1[2];
l3 := Feld1[3];
if l2='0' then
zeichen1:='a';
if l2='1' then
zeichen1:='b';
if l2='2' then
zeichen1:='c';
if l2='3' then
zeichen1:='d';
if l2='4' then
zeichen1:='e';
if l2='5' then
zeichen1:='f';
if l2='6' then
zeichen1:='g';
if l2='7' then
zeichen1:='h';
if l2='8' then
zeichen1:='i';
if l2='9' then
zeichen1:='j';
// zeichen 2
if l3='0' then
zeichen2:='a';
if l3='1' then
zeichen2:='b';
if l3='2' then
zeichen2:='c';
if l3='3' then
zeichen2:='d';
if l3='4' then
zeichen2:='e';
if l3='5' then
zeichen2:='f';
if l3='6' then
zeichen2:='g';
if l3='7' then
zeichen2:='h';
if l3='8' then
zeichen2:='i';
if l3='9' then
zeichen2:='j';
Edit2.Text:='inf=' +l1+l2+l3 + '-' + zeichen1 +zeichen2;
end;
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
Edit1.Text := Format('%.3d', [UpDown1.Position]);
end;
end.