Wie bekomme ich per Button in ein Memofeld einen Buchstaben?

[B2-STEALTH]

Hallo zusammen

Kann mir jemand sagen wie ich per Button einen Buchstaben in ein Memofeld bekomme ?

Oder Leerzeichen mache mit einen Button ?

Oder die Enterfunktion Ausübe per Button im Memofeld ?

Danke im vorraus

B2-STEALTH

[Jürgen Thomas]

Hallo,

willst Du in den Text innerhalb des Memo-Feldes per Button.Click ein Zeichen einfügen? Dann geht das z.B. so ähnlich:

Delphi-Quellcode:

procedure TForm1.TextEinfuegen(var aMemofeld: TMemo; const sText: string);
begin
  aMemofeld.Lines.Text := LeftStr(aMemofeld.Lines.Text, aMemofeld.SelStart-1)
                        + sText
                        + RightStr(aMemofeld.Lines.Text, aMemofeld.Lines.Count - aMemofeld.SelStart);
end;

Ungetestet; vor allem habe ich nicht genau überlegt, ob SelStart mit +/-1 verbunden werden muss. Vielleicht gibt es inzwischen auch eine einfache Routine, um einen Text in den String aMemofeld.Lines.Text einzufügen.

Meinen Code habe ich so geschrieben, dass ein beliebiges Memo um einen beliebigen Text (also ein einzelnes Zeichen, auch Leerzeichen, oder auch längere Texte) ergänzt werden kann.

Genügt das? Jürgen

PS. Ich könnte mir vorstellen, dass es auch schneller geht; dazu fällt mir aber im Moment nichts ein.

[Blackheart]

Memo1.SelText:='A';

[Jürgen Thomas]

Zitat von Blackheart:

Memo1.SelText:='A';

Dann muss aber vorher unbedingt geprüft werden, ob SelLength = 0 ist! Jürgen

Ansonsten hast Du natürlich recht: Man muss nicht alles neu programmieren (wie ich gerade). Jürgen

[SirThornberry]

Zitat von Jürgen Thomas:

Zitat von Blackheart:

Memo1.SelText:='A';

Dann muss aber vorher unbedingt geprüft werden, ob SelLength = 0 ist! Jürgen

Ansonsten hast Du natürlich recht: Man muss nicht alles neu programmieren (wie ich gerade). Jürgen

Muss nicht geprüft werden! Ist kein Text selektiert wird an der Cursorposition das 'A' eingefügt.

[SnuffMaster23]

Aber wenn Text markiert ist wird der ersetzt
Wenn das nicht erwünscht ist sollte man schon prüfen.

[B2-STEALTH]

Hey an alle


Ich habe es hinbekommen so sieht der Quelltext aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := Memo1.Text + 'A';
end;

end.

Danke

- = B2-STEALTH = -

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]

[Jürgen Thomas]

Entschuldige bitte, was sollen wir "Helfer" jetzt davon halten? Du gibst uns Deine Lösung bekannt, ohne auf unsere Hinweise einzugehen. Dabei ist Dein Verfahren nur eine Teillösung; denn Du hängst nur ein Zeichen an. Laut Frage willst Du ein Zeichen in das Memo bekommen; und das bedeutet, dass es auch mitten in den vorhandenen Text kommen kann. Alle unsere Antworten berücksichtigen das!

Glaubst Du nicht, dass wir uns etwas gedacht haben (auch wenn z.B. ich weit übers Ziel hinausgeschossen bin)? Wie sollen wir uns jetzt von Dir behandelt fühlen? Jürgen

[B2-STEALTH]

Hey an alle

Aber wie soll das gehen bei ENTER oder Space - Funktion das verstehe ich echt nicht.

Bei Enter muß er ja in Reihen runter springen / Und bei space zur seite weitergehen aber per Button.

Kennt sich jemand da aus

Danke im Vorraus an alle

- = B2-STEALTH = -