AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Combobox auswerten?!?

Combobox auswerten?!?

Ein Thema von plautzer · begonnen am 24. Dez 2004 · letzter Beitrag vom 1. Jan 2005
 
Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#9

Re: Combobox auswerten?!?

  Alt 31. Dez 2004, 15:31
Angenommen, du hast 4 Werte, 1 2 3 4, jeweils durch ein Leerzeichen getrennt.
Delphi-Quellcode:
var zahl1, zahl2, zahl3, zahl4, zahlaktuell:byte; //Positionen der Zahlen
  zahlen:string;
...
begin
zahlen:='1 2 3 4';
zahlaktuell:=pos('1',zahlen); //Position der 1. Zahl
zahl1:=strtoint(copy(zahlen,zahlaktuell,1)); //Die erste Zahl in die Variable Zahl1 zur Weiterverarbeitung kopieren
zahlaktuell:=pos('2',zahlen); //Position der 2. Zahl
zahl2:=strtoint(copy(zahlen,zahlaktuell,1));
zahlaktuell:=pos('3',zahlen); //Position der 3. Zahl
zahl3:=strtoint(copy(zahlen,zahlaktuell,1));
zahlaktuell:=pos('4',zahlen); //Position der 4. Zahl
zahl4:=strtoint(copy(zahlen,zahlaktuell,1));
ShowMessage('Zahl 1 ist '+inttostr(zahl1)+#10#13+'Zahl 2 ist '+inttostr(zahl2)+#10#13+'Zahl 3 ist '+inttostr(zahl3)+#10#13+'Zahl 4 ist '+inttostr(zahl4));
end;
Wenns mehr Zahlen sind, köntest dus evtl. in ne Schleife packen, aber das solltest du schon schaffen
Julian J. Pracht
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 07:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz