Taschenrechner

[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.

Delphi-Quellcode:

var
  i: integer;
  r_Zahl1: real;
  r_Zahl2: real;
  r_zahl3: real;
  r_erg: real;
  S_zeichen: char;
  s_text: string;
begin
  s_text := Edit2.Text;
  for i := 1 to length(s_text) do
  begin
    if s_text[i] = ' ' then
    begin
      s_text := trim(s_text);
    end

Zuweisung

Delphi-Quellcode:

 begin
        r_Zahl1 := strtofloat(Edit1.Text);
        r_Zahl2 := strtofloat(Edit3.Text);
        s_text := Edit2.Text;
        S_zeichen := s_text[1];

Danke schon einmal für die Hilfe