Einzelnen Beitrag anzeigen

Lillebrohr
(Gast)

n/a Beiträge
 
#4
  Alt 25. Jun 2003, 20:10
Hallo Privateer,

Dann füge doch in die OnMouseDown Prozedur deines Berechungsbuttons (wenn einer vorhanden ist) folgendes ein:
Delphi-Quellcode:
For i:=1 to length(edit1.text) do
    begin
    zeichen := edit1.text[i];
    If zeichen <> ' then
        begin
        zeichenkette := zeichenkette + zeichen;
        end;
    end;
In Zeichenkette steht dann halt alles ohne Leerzeichen. Ist vielleicht ein bißschen umständlich aber es funktioniert.

Tschau
  Mit Zitat antworten Zitat