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

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;

[Luckie]

Überleg mal welches ist denn die entscheidende Zeile in dem Quellcode ist.

[Klaus01]

Delphi-Quellcode:

procedure TFormTR.spErgebnisClick(Sender: TObject); 
  var 
    Formular,Seg1,Seg2: string; 
    position : Byte;
    zeichen : char;
begin 
  Formular := LabelAnzeige.Caption; 
  zeichen := '+';
  position := pos(zeichen,Formular);
  if position > 1 then 
    begin 
      Seg1 := copy(Formular,1,position - 1); 
      Seg2 := copy(Formular,position + 1,length(Formular)); 
    end
  else
    ShowMessage('Zeichen ('+zeichen+')nicht gefunden!);); 
end;

.. etwas umgestaltet

Auf anraten von Luckie noch etwas umgebaut.

Aber was soll mit Seg1 und Seg2 passieren, sie sind nur lokal definiert??

Grüße
Klaus

[Luckie]

Was zeigt die ShowMessage an, wenn das Zeichen nicht gefunden wurde?

[safak67]

ok ich habs gelöst danke trotzdem..
ich habe es mi einer schleife gemacht