Leerzeichen in Enter(Zeilenumbruch) umwandeln

[NDR]

Hallo,
Ich suche in Delphi 7 eine Möglickeit Leerzeichen in Enter/einen Zeilenumbruch umzuwandeln.
Zur Problematik:
Ich habe ein Memofeld in dem Zahlen eingegeben werde sollen, sodass ich eine Liste von Zahlen bekomme, mit den ich denn nach dem Umwandeln Rechnen etc. machen kann.
Der Benutzer kann ja nun aber auf die Idee kommen und zwei Zahlen in eine Zeile zu schreiben... das würde denn ja eine Fehlermeldung ala " '123 321' ist kein gültiger Integerwert" hervorrufen. Zu dem Zweck möchte ich das wenn ein Leerzeichen oder sonstige nicht erlaubten Zeichen im String drin stehen die das konvertieren in einen Integerwert verhindern geblockt bzw umgewandelt werden.

Beispiel
aus
'-123 321'
wird
'-123'
'321'

oder aus
'1234-567'
wird
'1234'
'-567'

Gibtes da eine Möglichkeit das schon bei der Eingabe zu korrigieren oder muss ich da erst ne Procedure drüber laufen lassen die mir die fehlerhaften Eingaben berichtigt?

mfg NDR

[DP-Maintenance]

Dieses Thema wurde von "fkerber" von "Open-Source" nach "Sonstige Fragen zu Delphi" verschoben.
Da es sich um eine Frage handelt, verschiebe ich das mal.

[easywk]

Hallo,

klar, du kannst in der Routine OnKeyPress die Tasten abfangen. Ich habe das zwar noch nicht in einem Memofeld gemacht, aber in TEdit mache ich das ständig:

Delphi-Quellcode:

const
  CZahlenGroup     = ['-','1','2','3','4','5','6','7','8','9','0',#8];

procedure TForm1.SimulateEnterZahlen(Sender: TObject;var Key: Char);
begin
  if not (Key in CZahlenGroup) then 
    Key:=#0;
end;

Mein Fall löscht die Taste einfach, du kannst aber natürlich dann auch den Key auf Enter setzen ...

cu
easy

[NDR]

So hab jetzt diese Procedure mit reingeschrieben und beim Memofeld mit dem Ereignis OnKeyPress verknüpft.... das Problem ist jetzt nur das ich zwar nur noch Zahlen und '-' eingeben kann, jedoch mein "Enter" um auf die nächste Zeile zu kommen auch geblockt wird :|


Noch ne weitere Frage die mir grad so aufkommt.... wie kann ich die anzahl der Zeilen im Memofeld beschränken?

schonmal thx

NDR

[DenSchub]

Ersetz mal das #8 durch #13 denn das steht imho für Enter.

Grüße,

[NDR]

Supi das mit der #13 funzt^^
Bleibt nur noch diese kleine Frage hier:

Zitat:

Zitat von NDR

Noch ne weitere Frage die mir grad so aufkommt.... wie kann ich die anzahl der Zeilen im Memofeld beschränken?

^^
NDR

[DenSchub]

Das setzt z.B. die Maximal-Anzahl der Zeilen auf 3:

Delphi-Quellcode:

if (Key = #13) AND (Memo.Lines.Count >= 3) then
  Key := #0;

Grüße

[edit]Das kommt natürlich auch in das OnKeyPress rein![/edit]

[BUG]

Zitat:

Zitat von NDR

jedoch mein "Enter" um auf die nächste zeile zu kommen auch geblockt wird :|

Probiere es mal so:

Delphi-Quellcode:

const
  CZahlenGroup     = ['-','1','2','3','4','5','6','7','8','9','0',#8,#13,#10];

MfG,
BUG

EDIT: Roter Kasten ... was ist das?

Wenn er die Rücktaste benutzen möchte, sollte er das #8 drinlassen.

[Satty67]

Eigentlich ja nur eine Frage pro Thread. Wäre die Antwort trivial, hätte ich auch nichts gesagt, aber ein gutes begrenzen der Zeilenzahl ist imho relativ kompliziert.

Trivial:
Wenn Memo1.Lines.Count größer gewünschtem Wert, das #13 wieder in #0 wandeln. Verhalten ist dann nicht ganz elegant, wenn man alte Zeilen oben dran editieren will

€: Ok, einer war schneller ;)

[DenSchub]

Stimmt, #8 ist ja die Rücktaste :wall:

Satty: Nö, denn das blockt ja dann nur das Enter, und wenn man oben was editieren will benutzt man ja kein Enter..

[NDR]

genau nur das enter wird geblockt^^ ebend getestet^^

ich danke allen fleißigen helfern^^

mfg NDR

[Satty67]

Zitat:

Zitat von DenSchub

Nö, denn das blockt ja dann nur das Enter, und wenn man oben was editieren will benutzt man ja kein Enter..

Manchmal will man oben eine Zeile mit Enter einfügen, dann erst die drunter löschen oder mit Enter durch die Zeilen laufen. Aber kommt im aktuellen Anwendungsfall wohl nicht so oft vor, gibt ja noch Pfeil-Runter...

[Sharky]

Hai NDR,

was machst Du denn wenn der Anwender die Zeichen über die Zwichenablage in das Memofeld einfügt?

[NDR]

Dadrüber hab ich mir auch Gedanken gemacht und ich will das folgender maßen umsetzen:

Delphi-Quellcode:

try versuch:=strtoint(Memo.Lines[x]);
    except
    on econverterror do
      begin
      showmessage('Keine Zahl eingegeben!');
      Memo.SetFocus;
      exit;
      end;

[Helmi]

Besser du verwendest: StrToIntDef oder TryStrToInt
Beim letzteren bekommst du einen boolschen Rückgabewert, ob das Umwandeln erfolgreich war oder nicht