Einzelnen Beitrag anzeigen

SpiDe1500

Registriert seit: 13. Dez 2010
17 Beiträge
 
#5

AW: Letzten Teil eines Strings entfernen bei unbekannter Länge

  Alt 17. Dez 2010, 22:11
Super!
Hat geklappt...
Soll von der Schule her eine Multiplikationsaufgabe aufschlüsseln, sodass er das Ergebnis durch Plus rausbekommt.
Der gesamte Vorgang sollte dann auch in einem Label angegeben werden...
Dh, wenn ich 4 x 5 eingebe sollte im Label 5+5+5+5 stehen ...

habe das so gelöst:
begin
ergebnis := strtoint(edit1.text);
eingabe2 := strtoint(edit2.text);
eingabe2 := eingabe2 - 1;
for i:= 1 to (eingabe2) do begin
ergebnis := ergebnis + strtoint(edit1.Text) ;
formel := formel +edit2.text + '+';

end;
for I :=1 downto Length(formel) do
begin;

end;
Delete(formel, i, 1);
label2.caption := inttostr(ergebnis);
label3.Caption := formel;

Blöd nur, das bei der letzten Schleife dann noch ein + dahinter stand...
also...: 5+5+5+5+ , was kein befriedigendes Ergebnis war.
Aber nun klappts hervorragend!

Danke an Euch beide
  Mit Zitat antworten Zitat