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..?
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;