Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Copy-Problem

   
    by Blackheart, 24. Nov 2007
  Genau das wird ja verhindert, aber Ich gebs auf ist wahrscheinlich zu schwer das mal zu testen. :gruebel:
  procedure TForm1.Memo1Change(Sender: TObject);
  begin
  if (Copy(Memo1.Text, Memo1.SelStart-2, 3) = '') and not
  (Copy(Memo1.Text, Memo1.SelStart+1, 4) = '') then
  begin
  Memo1.SelText := '';
  Memo1.SelStart := Memo1.SelStart-4;
  end;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: Copy-Problem

   
    by Blackheart, 23. Nov 2007
  Getestet und für gut befunden ! :thumb:
  Bei Mir funktionierts jedenfalls.
• Forum: Sonstige Fragen zu Delphi

  Re: Copy-Problem

   
    by Blackheart, 23. Nov 2007
  Am einfachsten dürfte es doch sein zu prüfen ob hinter bereits ein steht.
  procedure TForm1.Memo1Change(Sender: TObject);
  begin
  if (Copy(Memo1.Text, Memo1.SelStart-2, 3) = '') and not
  (Copy(Memo1.Text, Memo1.SelStart+1, 4) = '') then
  begin
  Memo1.SelText := '';
  Memo1.SelStart := Memo1.SelStart-4;
  end;
  end;