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;

[DeddyH]

Wenn ein "+"-Zeichen im String Formular vorkommt, wird der Teil davor nach Seg1 und der Teil danach nach Seg2 kopiert. Schau mal in der Hilfe zu Pos und Copy nach.

[himitsu]

zu beachten ist aber, wenn kein "+" vorkommt, dann sind Seg1 und Seg2 nicht initialisiert
(gut, da es Strings sind, sind sie dann einfach nur leer)

[safak67]

wie schreibe ich des dann um das alle initialisiert werden..?
also + - * /

[jbg]

Zitat von DeddyH:

Wenn ein "+"-Zeichen im String Formular vorkommt

und es nicht das erste Zeichen ist. (Pos > 1)

So wie der Code im Moment ist, sind, wie bereits festgestellt, Seg1 und Seg2 leer (Strings sind managed Datentypen und werden mit Leerstring vorinitialisiert [außer bei Rückgabewerten]). Zudem liefert "Seg1+'+'+Seg2" wieder "Formular" zurück, da der am Plus gesplittete String mit einem Plus-Zeichen wieder zusammengebaut wird.

[Luckie]

Und was hat das ganze mit dem Threadtitel "Segmentanzeige" zu tun? Bitte gib deinen Threads Titel, die auch etwas mit dem Inhalt des Beitrages zu tun haben.