AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren
Thema durchsuchen
Ansicht
Themen-Optionen

Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

Ein Thema von Alterauge · begonnen am 12. Sep 2012 · letzter Beitrag vom 12. Sep 2012
Antwort Antwort
Alterauge

Registriert seit: 4. Mär 2011
306 Beiträge
 
Delphi 2010 Professional
 
#1

Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:19
Datenbank: MySQL • Version: 5.5 • Zugriff über: MyConnection
Hallo,

wie kann ich (über einen Button) immer die letzten 10 Zeichen (sind nur Zahlen)in
ein DBEdit kopieren?

Egal wieviel im DBMemo steht! Es geht nur um die letzten 10 Zeichen!

Hat einer eine Idee ?

Gruß
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:24
edit1.Text:=copy(memo1.Lines.text,length(memo1.Lines.text)-10,10); so aus der hohlen Hand...
wenn das Memo weniger als 10 Zeichen hat, könnte es schief gehen.....


Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:26
Was hat das denn schon wieder mit Datenbanken im Speziellen zu schaffen?

Du hast da einen String (völlig unerheblich wo du den herbekommst ... schaff den einfach ran)
Von diesem String möchtest du die letzten 10 Zeichen haben (wohin auch immer die sollen ... pack sie einfach dahin)

Also benötigst du eine Funktion, die einen String aufnimmt und einen String zurück liefert:
function CutOffLastTenChars( const Str : string ) : string; Und weil das so banal ist, gibt es eine Unit Delphi-Referenz durchsuchenStrUtils mit der Funktion Delphi-Referenz durchsuchenRightStr

In deinem Code würde das dann wohl wie folgt aussehen:
aDBEdit.Text := RightStr( aDBMemo.Text, 10 );
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:26
Auch in diesem Fall gilt, hole die daten direkt aus dem Datenbankfeld und nicht aus der Anzeigekomponente!


<ZielStr> := Copy(<QuellStr>, Length(<QuellStr>)-9, 10);
Markus Kinzler
  Mit Zitat antworten Zitat
Alterauge

Registriert seit: 4. Mär 2011
306 Beiträge
 
Delphi 2010 Professional
 
#5

AW: Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:29
Danke es geht!
DBEdit9.Text := Copy(DBMemo3.Text, Length(DBMemo3.Text)-9, 10); Es sind immer mehr als 10 Zeichen!
Danke!

Geändert von Alterauge (12. Sep 2012 um 14:41 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Jonas Shinaniganz
Jonas Shinaniganz

Registriert seit: 30. Aug 2011
249 Beiträge
 
Delphi XE5 Ultimate
 
#6

AW: Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:45
Ein Tipp von mir als Anfänger, nimm dir wirklich zu Herzen, was Sir Rufo und mkinzler sagen.

Und versuche für dich selbst zu begründen, warum du so eine Opperation durchführen musst. Es mag vielleicht in diesem Fall Gründe geben so vorzugehen.

Aber Ich stelle mal die These auf, dass du bei einem durchdachten Konzept keine letzten 10 Zeichen irgendwo "rausklauben" musst.

Grüße
Die Leiter der Entwicklungsabteilung dreht total am Mausrad!
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#7

AW: Aus dem DBMemo die letzten 10 Zeichen in ein DBEdit kopieren

  Alt 12. Sep 2012, 14:57
@Jonas
Ich kenne einige Datenlieferanten, bei denen sich am Ende eines Referates eine DokumentNummer/Seriennummer befindet, die es sonst nirgendwo (innerhalb des Datensatzes) gibt.
Nur ist es in einer Vielzahl von Datensätzen so, das auf die "letzten 10 Zeichen" kein Verlass ist.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz