Segemtation fault (11)

[hoika]

Halo,
die Frage ist ja, warum kommt das nur bei der Mobile-App.

Für solche ungewollten Events habe ich mir immer ein paar Hilfsroutinen geschrieben, sz.B.

Delphi-Quellcode:

procedure Edit_SetText(editField: TEdit; const text: String);
var
  oldEvent: TNotifyEvent;
begin
  oldEvent := editField.OnChange;
  try
    editField.OnChange := nil;
    editField.Text := text;
  finally
    editField.OnChange := oldEvent;
  end;
end {Edit_SetText};