[ developercorei3 @ 14.07.2012. 14:36 ] @
Imam jedan neobičan zahtev / problem: - otvoriti 5 csv fajlova, - izračunati srednju vrednost za svaku ćeliju, - sačuvati 1 csv fajl sa novim vrednostima, koji ima istu strukturu kao 5 selektovanih. Da li je moguće računati srednju vrednost matrice, tj. svake ćelije zasebno u Borland Delphi 7 ? Code: procedure TForm1.ParseRecord(sRecord: string; Row: integer); var sField, subRecord: string; Col, PosComma, PosQ: integer; begin Col := 0; repeat if Pos('"', sRecord) = 1 then begin subRecord := Copy(sRecord, 2, Length(sRecord) - 1); PosQ := Pos('"', subRecord); sField := Copy(sRecord, 2, PosQ - 1); // PosQ is position of double quotes in subRecord, which is one character //shorter than sRecord // Plus two is added due to the fact that there is a comma behind double quotes Delete(sRecord, 1, PosQ + 2); end else begin PosComma := Pos(',', sRecord); if PosComma > 0 then begin sField := Copy(sRecord, 1, PosComma - 1); Delete(sRecord, 1, PosComma); end else sField := sRecord; end; StringGrid1.Cells[Col, Row] := sField; Col := Col + 1; until PosComma = 0; // Set column number StringGrid1.ColCount := Col; end; [Ovu poruku je menjao savkic dana 14.07.2012. u 21:10 GMT+1] |