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