Forum: Sonstige Fragen zu Delphi
Delphi
by DelphiNoob1.0,
26. Aug 2013
Hmm das wäre Natürlich einfacher, aber meine Lehrerin möchte ja sehen wie man das anders lösen könnte :) Das mit der Eins hab ich verbessert, jetzt muss der string größer als 1 sein, damit die Procedur arbeitet
Forum: Sonstige Fragen zu Delphi
Delphi
by DelphiNoob1.0,
26. Aug 2013
Ich habs jetzt mal nur mit der 2 gemacht geht aber trotzdem nicht er will da nichts verändern .. procedure TForm1.BinaerChange(Sender: TObject); // Change also direkt bei eingabe
var i :integer;
bin :string;
begin
bin:=Binaer.Text;
i:=length(bin);
If i>1 then
if AnsiLastChar(bin)^ = '2' then delete (bin, i, 1 );
Binaer.text:=bin;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by DelphiNoob1.0,
26. Aug 2013
procedure TForm1.BinaerChange(Sender: TObject); // Change also direkt bei eingabe
var i :integer;
bin :string;
begin
bin:=Binaer.Text;
i:=length(bin);
If i=1 then
if not AnsiLastChar(bin)^ = '1' or '0' then delete (bin, i, 1 );
end;