Pos and Copy

[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