Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
11. Jun 2008
Und wenn das Sekunden sind statt Millisekunden?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
11. Jun 2008
Welches Ergebnis erwartest Du denn? Ich komme auf ca. 4 1/2 Minuten.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
11. Jun 2008
Ich bekomme das selbe Ergebnis, hab allerdings nicht gegengerechnet. Dann muss man halt mal ermitteln, was denn nun das richtige Ergebnis ist und ggf. noch einmal die Funktion überprüfen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
Stepp doch mal durch, so aus der Ferne kann ich da nichts zu sagen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
Erweitern wird das Ganze mal ein wenig:function findStrings(sl:TStrings;s:TStrings;cSeparator: char = '.'): double;
var i :Integer;
ergebnis :Tstrings;
OldSep: char;
begin
OldSep := DecimalSeparator; //Sichern des alten Zustandes
DecimalSeparator := cSeparator; //Umstellen des Dezimalseparators
Result := 0;
ergebnis:= TStringList.Create;
try
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
Die stehten aber wohl mit dem falschen Decimalseparator drin (im Deutschen das Komma).
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
Ich meinte, was steht in den Zellen, die Du addieren willst?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
Dann klappt das Umwandeln in Float anscheinend nicht. Was steht denn drin?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
function findStrings(sl:TStrings;s:TStrings): double;
var i :Integer;
ergebnis :Tstrings;
begin
Result := 0;
ergebnis:= TStringList.Create;
try
for i := 1 to Pred(sl.Count)-1 do
if (sl) = 'OUT' then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
10. Jun 2008
Bist Du sicher, dass Du beide Male auf RowCount zugreifen willst?