Pos and Copy

**safak67**

Hi, also meine frage.. im unten angegeben quelltext wird ja der String angezeig wenn ein + vorkommt, wie schreibe ich das programm um damit bei allen operatoren(+ - * /) die segmente initialisiert werden..?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFormTR.spErgebnisClick(Sender: TObject); 

  var Formular,Seg1,Seg2: string; 

begin 

  Formular := LabelAnzeige.Caption; 

  if pos('+',Formular) > 1 then 

  begin 

    Seg1 := copy(Formular,1,pos('+',Formular) - 1); 

    Seg2 := copy(Formular,pos('+',Formular) + 1,length(Formular)); 

  end; 

  ShowMessage(Seg1+'+'+Seg2); 

end;

Pos and Copy

Pos and Copy

Forumregeln