String zerlegen, auslesen und weiterverwenden

[ibp]

damit man mit den string-funktionen lernt...

Delphi-Quellcode:

var
 stelle:integer;
 anr:integer;    // auftragsnummer
 anrstr:string   // hilfsstring

...
// z.b. tempstr='2,14,23,48,55,'
while tempstr<>'' do
begin
  stelle:=pos(',',tempstr);  // position des ersten auftretens von ','

  if stelle>0 then  // stelle gefunden
    anrstr:=copy(tempstr,stelle-1); // kopiert aus tempstr die stellen 1..stelle-1

    if trystrtoint(anrstr,anr) then; // anrstr in zahl umwandeln 
      machwas(anr) // verarbeiten
    else
      showmessage('keine zahl');

    delete(tempstr,1,stelle); // löschen bis nach 1. komma
  end
  else
    tempstr:='';
end;

ps. hoffe, das die string-indizes richtig sind