Einzelnen Beitrag anzeigen

Benutzerbild von X-Dragon
X-Dragon

Registriert seit: 14. Jan 2003
Ort: Schortens
289 Beiträge
 
Delphi 6 Enterprise
 
#4
  Alt 10. Apr 2003, 11:17
Dafür müsstes du dann ja zuerst einzelnd die Einträge rausfiltern wo Berechnungen durchgeführt werden müssen, dann kontrollieren ob diese Zeilen die für die Berechnung notwendig sind schon berechnet sind und die Buchstaben der Zeilen innerhalb der Berechnung nach und nach durch Zahlenwerte aus den entsprechenden Zeilen ersetzen.

Also grunsätzlich würde ich sagen am besten erstmal:
Delphi-Quellcode:
for i := 0 to stringliste.Count -1 do
begin
  txt = Copy(stringliste[i],Pos('='),Length(stringliste[i]-1Pos('='));
  if StrToIntDef(txt,'formel') = 'formelthen
    / ...

end;
die Formeln rausfiltern und anschliessend aus diesen die benötigten Buchstabenkombinationen rausfiltern und in einer weiteren Schleife kontrollieren ob diese Werte schon berechnet sind und entsprechend ersetzen. Wenn keine Buchstaben mehr in der Formel sind kann diese dann ja berechnet werden, ansonsten kann ja erstmal die nchste Zeile kontrolliert werden und zum Schluss das ganz nochmal vor vorne bis alles berechnet ist .
  Mit Zitat antworten Zitat