Inhaltsabfrage in Delphi 10.2

[iTzElKay]

Guten Tag liebe Community,

und zwar bin ein gnadenloser Anfänger im Bereich Delphi und beschäftige mich nun seit ein paar Tagen damit. Ich wollte fragen, ob es irgendwie eine Abfragemöglichkeit gibt, um in einem Memo (z.B.) nach bestimmten Charakteren zu suchen. In meinem Fall erstelle ich zum Üben einen Taschenrechner, der dem bei Windows ähnelt. Wird hier eine die "Kommataste" gedrückt, soll ein Komma erscheinen, jedoch bei erneutem Betätigen nicht. Ich bin gerade nicht sicher, wie ich das angehen soll.

Vielen Dank für eure Hilfe!

[mkinzler]

Pos/PosEx(), StrScan(), ...

if Pos( ',', Memo.Lines.Text) < 1 then //Noch kein Komma

[hoika]

Hallo,
beim OnKeyPress des Memos kannst du Key=#0 setzen, dass verhindert, dass das Zeichen in das Memo eingetragen wird.
Jetzt noch davor die Prüfung siehe der Thread über mir.

[iTzElKay]

Vielen Dank für deine Antwort. Problem hat sich somit gelöst!

[himitsu]

Zitat von mkinzler:

Pos/PosEx(), StrScan(), ...

if Pos( ',', Memo.Lines.Text) < 1 then //Noch kein Komma

ContainsText ContainsStr
TStringHelper.Contains TStringHelper.IndexOf
...

oder andersrum
IndexStr IndexText MatchStr MatchText

[iTzElKay]

@himitsu - auch dir ein Danke.
Hätte noch eine Frage, die aber nicht zum Thema passt - hoffe es ist okay, wenn ich sie gerade hier stelle:
Und zwar habe ich das bei meinem Taschenrechner so geregelt, dass die Eingabe vom Benutzer in einem TMemo gespeichert wird. Erste Zeile = erste Eingabe, zweite Zeile = Rechenoperator, dritte Zeile = zweite Eingabe - beim Entern dann das Ergebnis in einem Panel. Funktioniert auch alles super, jedoch möchte ich einerseits, dass der Benutzer nur diese sogenannten drei Lines benutzen kann und sollte eine weitere Eingabe erfolgen, rechnet er das Ergebnis aus und nimmt dieses als erste Eingabe (erste Line), aber löscht den Rest (sogesehen: zweite und dritte Line), damit der Benutzer weitereingeben kann.

Auch würde ich gerne wissen, wie man das machen kann, dass ins TMemo nur mit Hilfe von Buttons geschrieben wird, da ich zu dumm bin, die Tastatureingabe als Eingabe zu integrieren. Also er funktioniert schon, jedoch übergibt er nicht richtig den Rechenoperator. Screens folgen.

Hatte es mir irgendwie so gedacht, dass eine Abfrage der Linesanzahl getätigt wird, weiß nur nicht, wie das zu bewerkstelligen ist..

Vielen Dank vorab!

[Jumpy]

Am einfachsten speicherst du deine Eingaben in Variablen (wenn man so will der Speicher des Taschenrechners) und benutzt das Memo nur zur Anzeige. Du musst dir zudem merken, in welchem Zustand der Taschenrechner gerade ist, ob beim Eingebn der 1. Zahl oder der 2. Zahl, abhängig davon ob ein Operator eingegeben wurde usw. usw.
Das Eingeben per Tastatur kannst du erreichen, indem du für das Formular ein entsprechenden OnKeyPress-Event schreibst.

[Hobbycoder]

Memo.ReadOnly:=True Dann kann man schon mal nicht mehr direkt ins Memo schreiben.

Und Memo.Lines.Count liefert dir die Anzahl der vorhanden Zeilen im Memo

[Hobbycoder]

Zitat von iTzElKay:

Guten Tag liebe Community,

und zwar bin ein gnadenloser Anfänger im Bereich Delphi und beschäftige mich nun seit ein paar Tagen damit.

und

Zitat von iTzElKay:

Möchte immer direkt mit VS öffnen und es nicht möglich das umzustellen..

Also jetzt müsstest du dich mal entscheiden. Wir sprechen hier alle Pascal (Delphi/Embarcadero).

Wenn du aber lieber VisualStudio (Microsoft), und damit VisualBasic, C# oder C++ möchtest, dann bist du hier geringfügig falsch.

Aber dein Code, den du hier zwischendurch mal gepostet hast, ist schon Pascal und damit Delphi. Das ist dir schon klar, oder?

Also, noch mal in kürze:
- Anhang Demo.zip runterladen.
- Demo.zip in ein Verzeichnis entpacken.
- Delphi starten
- In Delphi "Projekt öffnen", in das Verzeichnis wechseln und Demo.proj oder Demo.dpr öffnen

Wenn das nicht geht, hier genau sagen, was nicht geht, welche Fehlermeldung kommt und ggf. noch einen Screenshot anhängen.

[iTzElKay]

Ich bin nicht dumm. Ich programmiere nur mit Embarcadero, aber wenn ich deine Datei öffnen will, möchte das immer mit VisualStudios starten, obwohl ich es nicht mal auf meinem Computer besitze. Wenn ich versuche, das Projekt mit Embarcadero zu öffnen, geht das nicht, da einfach das Projekt nicht angezeigt wird. Ich habe es nie gemeint, dass ich versuche irgendwas mit VisualStudios zu öffnen, sondern es will sich von alleine mit VisualStudios öffnen!

Damit meine ich, dass ich deine Dateien entpackt habe und versucht habe, das Projekt auszuführen. Aber es passiert einfach gar nicht. Es scheint so, als würde es kurz laden, öffnen tut sich aber nichts.