Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Umwandlung in Zahl?

D. Annies - Sa 10.01.09 11:44
Titel: Umwandlung in Zahl?

Hi, Delpher,

in einem String sind folgende Einträge gespeichert:

artikel1/3
artikel2/15
artikel3
artikel4/104

Wenn der Artikel nur einmal vorhanden ist, fehlt der Slash.
Wie kann ich den String nach dem Slash elegant in eine (small-) Integer umwandeln?

Danke für Hilfe,
Detlef

Gausi - Sa 10.01.09 11:55

Mit Pos den Slash suchen, dann mit Copy den passenden Teil des Strings ausschneiden, und zuletzt StrToInt.

D. Annies - Sa 10.01.09 12:25

Danke, Daniel, klappt!
Gruß, Detlef

P.S.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

aktpos := 1; gef := false;
repeat
  if artikel[aktpos] = '/' then gef := true else inc(aktpos);
until gef or (aktpos = length(artikel));  
if gef then
begin
  hstr := copy(artikel, aktpos+1,length(artikel));
  aus_anz := strtoint(hstr);
  showmessage(inttostr(aus_anz));
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!