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
