Function RtnData(cLigne: string): Integer; Var nDebutData, nFinData, nNbCarData: Integer; Begin nDebutData := Pos('[', cLigne); nFinData := Pos(']', cLigne); nNbCarData := nFinData - (nDebutData +1); Result := StrToInt(Copy(cLigne, (nDebutData +1), nNbCarData)); end; Function SommeLigne(cLigne: string): Integer; Var nTotal, nLen: Integer; Begin nTotal := 0; Repeat nLen := Length(cLigne); nTotal := nTotal + RtnData(cLigne); cLigne := Copy(cLigne, Pos(']', cLigne) +1, nLen); until Length(cLigne) = 0; Result := nTotal; end; // ******************************************************************** procedure TForm1.BtnVideMemo2Click(Sender: TObject); // Vidage du memo2 begin Memo2.Clear; end; procedure TForm1.BtnFillMemo2Click(Sender: TObject); // Remplissage du Memo2 Var i: Integer; begin For i := 0 to Memo1.lines.Count -1 do Memo2.Lines.Add(IntToStr(SommeLigne(Memo1.Lines[i]))); end; end.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question