segment (aneige)

[safak67]

hallo erstmal,

kann mir jemand erklären, was die zeilen zu bedeuten haben..?

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;