Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: aus listbox in edit einschreiben

  Alt 14. Mär 2007, 20:22
een machteburjer

was sagt denn der Debugger ?

der Fehler liegt hie rim Delete.
Delphi-Quellcode:
         s := ListBox1.Items[ListBox1.
         p := Pos (',' , s);
         NameEdit.Text := Copy(s,1,p-1);
         Delete (s,1,p+1);
         p := Pos (',',s);
         VornameEdit.Text := Copy(s,1,p-1);
Das Delete kann eh ganz raus.

Mit Pos ermittelst du die Positon des Kommas.
Das erste Copy (p-1) kopiert bis vor das Komma (also den Namen),
das zweite Copy änderst du in Copy(s, p+1, Length(s));


Delete nicht vergessen zu löschen.

Generell ist es keine gute Idee, aus dem Komma auf Name/Vorname
zu schliessen.
Was wenn einer im Editor selbst ein Komma eingibt ???

Ich würde die Daten in einer eigenen Klasse (TList) halten,
jede Person erhält eine eigenen Klasseneintrag (TPerson = class)
mit seinen Daten.
Die Objekte selber könnten in ListBiox.Objects hinterlegt werden
oder du nimmst nen TListView (dort gibt es ListIte,Data).


Heiko
Heiko
  Mit Zitat antworten Zitat