Taschenrechner

[Amateurprofi]

Zitat von Dyami:

Hallo,

ich habe ein weiteres Problem.
Ich möchte in meinem Edit2.text alle Leerzeichen ignoriert bekommen. Aber ich weiß nicht, wie ich das beim Char machen soll.

So:

Delphi-Quellcode:

var S:String; I,J:Integer;
begin
   S:=Edit2.Text;
   J:=0;
   for I:=1 to Length(S) do
      if S[I]<>' ' then begin
         Inc(J);
         S[J]:=S[I];
      end;
   SetLength(S,J);