Hi Leutz,
ich möchte das man in einem Edit feld keine Leerstellen haben darf.
Da diese zur Berechnung dienen kommt es natürlich zu Fehlern wenn dies der Fall ist.
mit der Delphihilfe habe ich folgendes gebaut:
Delphi-Quellcode:
var
aLabel: TLabel;
eEdit: TEdit;
fEdit: String;
zwsum,aEdit,bEdit: Integer;
puff,ssumgm200,ssumgm100,ssumgm50,ssumgm20,ssumgm10,ssumgm5,gmges: Real;
begin
if Sender <> nil then
if Sender is TEdit then
begin
eEdit:=FindComponent('anzgm'+Copy(TLabel(Sender).Name,6,3))as TEdit;
while Pos(' ', fEdit) > 0 do
fEdit[Pos(' ', fEdit)] := '0';
.......(dann weiter im Source)
trotzdem erkennt das Prog dann keine Leerstellen und es gibt ein Exeption.
Was ist oben falsch??Kann jemand helfen??