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.

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Hier gehts um Delphi.

[Blackheart]

Memo1.SelText:='A';

[Jürgen Thomas]

Zitat:

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:

Zitat von Jürgen Thomas

Zitat:

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 = -

[Angel4585]

Enter ist auch nur ein ASCII Zeichen :zwinker:

BTW: beantworte bitte einmal die Fragen die dir gestellt werden sonst denken die noch du seist ein Bot :shock:

[Thanatos81]

Eben Leer und Enter sind auch nur Ascii-Zeichen und ein String im Quelltext kann ja auch so ausseh: ' ' ;-)

[elundril]

enter kannst du mit

Delphi-Quellcode:

Memo1.text:=Memo1.text+#10#13

lg el

[Angel4585]

Zitat:

Zitat von Thanatos81

ein String im Quelltext kann ja auch so ausseh: ' ' ;-)

Um ihm mal vorzugreifen:

"Aber nicht so:"

'
'

:mrgreen:

[B2-STEALTH]

Hey

Ich antworte gerne zurück blos ich kenne mich nur sehr wenig aus Idenn eine menge und das nicht zu knapp und das wisen von Delphi ist begrenzt.

Bevor ich es vergesse Danke an euch. Ich versuche mal ob ich das hinbekomme aber ich weis es nicht ob ich wirklich schaffe. Wie gesagt ich bin noch Anfänger.

Vielen Dank trotzdem das ihr mir geholfen habt.

- ==B2-STEALTH== -