Einzelnen Beitrag anzeigen

Delphiturbo
(Gast)

n/a Beiträge
 
#1

zahl durch ein Zeichen ersetzen ?

  Alt 28. Mai 2008, 16:44
Hallo

ich möchte das Zeichen 0 durch x und da Zeichen 1 durch n ersetzen
aber nur die letzte 2 Zeichen
ss spielt keine Rolle

Beispiel :
Zahl=000-ss soll Zahl=000-xx
Zahl=001-ss soll Zahl=001-xn
Zahl=011-ss soll Zahl=011-nn

Delphi-Quellcode:
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  Edit1.Text := Format('Zahl=' + '%.3d' + '-' + 'ss', [UpDown1.Position]);
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
i: Integer;
zeichen: String;
begin
for i := 6 to 7 do
zeichen:=Edit1.Text[i];
if zeichen = '0then
zeichen:='x';
if zeichen = '1then
zeichen:='n';

Edit2.Text:= // das Ergebnis soll in Edit 2 angezeigt werden

end;
end.