Anonymous | Login | Signup for a new account | 2019-02-19 02:49 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
Viewing Issue Simple Details [ Jump to Notes ] | [ View Advanced ] [ Issue History ] [ Print ] | ||||||
ID | Category | Severity | Reproducibility | Date Submitted | Last Update | ||
0003610 | [JEDI VCL] 00 JVCL Components | crash | always | 2006-03-26 09:29 | 2006-04-14 06:01 | ||
Reporter | cfzwit | View Status | public | ||||
Assigned To | obones | ||||||
Priority | normal | Resolution | fixed | ||||
Status | resolved | Product Version | 3.10 | ||||
Summary | 0003610: Fixed error in "GetValues" method for JvMemoryData | ||||||
Description |
Hi !!! I change this method (GetValues), becuase produce an variant conversion error. This is the complete source ( ONLY IN "GetValues" METHOD !!! ) function TJvMemoryData.GetValues(FldNames: string = ''): Variant; var List : TList; I: Integer; begin Result := Null; if FldNames = '' then FldNames := FKeyFieldNames; If FldNames = '' Then Exit; If Pos(';',FldNames) > 0 Then Begin List := TList.Create; GetFieldList(List,FldNames); Result := VarArrayCreate([0, List.Count - 1], varVariant); for I := 0 to List.Count - 1 do Result[I] := TField(List[I]).Value; FreeAndNil(List); End Else Begin Result := VarArrayCreate([0,0],VarVariant); Result[0] := FieldByName(FldNames).Value; End; end; Please, change this routine into the CVS (JvMemoryData.Pas) in the JEDI site. Thank You !!! |
||||||
Additional Information | |||||||
Tags | No tags attached. | ||||||
Attached Files | |||||||
|
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |