Txt in Listview Laden

[Natcree]

Das Problem ist hier jedoch das ich die daten in eine Objectliste gebe dann Formatiere und dann in die Listview ausgebe. Ich kann keine Daten die in einer Tstringlist sind ändern oder Doch und wenn wie bekomme ich dann die einzelnen Spalten Formatiert. Ich muss doch ne möglichkeit geben die daten aus der txt wieder in die Objectlist zubekommen. ich haenge mal das Prog mit als Datei mit an

[DeddyH]

- Datei in Stringliste laden
- zeilenweise zerlegen, Objekt erzeugen, Properties zuweisen und in Objektliste speichern
- Stringliste freigeben
- Objektliste visualisieren

Mehr ist nicht zu tun.

[Sir Rufo]

Zunächst würde ich alle Eigenschaften der DatenKlasse in published legen. Denn auf diese published Properties kann man sehr einfach zugreifen, ohne die Klasse genau kennen zu müssen.

Um jetzt eine beliebige TObjectList in eine Datei zu speichern oder aus ihr zu laden nimmst du einfach das hier:

Delphi-Quellcode:

unit ObjLstFiler;

interface

uses
  Contnrs;

procedure SaveList( AList : TObjectList; const AFileName : string; Delimiter : Char );
procedure LoadList( AList : TObjectList; AItemClass : TClass; const AFileName : string; Delimiter : Char );

function ObjToStr( AInstance : TObject; Delimiter : Char ) : string;
procedure ObjFromStr( AInstance : TObject; const AStr : string; Delimiter : Char );

implementation

uses
  TypInfo, Classes;

function ObjToStr( AInstance : TObject; Delimiter : Char ) : string;
var
  LPropName, LPropValue : string;
  LPropInfo :             PPropInfo;
  LPropCount :            Integer;
  LPropList :             PPropList;
  LPropType :             PPTypeInfo;
  LIdx :                  Integer;
  LTemp :                 TStrings;
begin
  LPropCount := GetPropList( AInstance, LPropList );

  LTemp := TStringList.Create;
  try

    LTemp.Delimiter := Delimiter;

    for LIdx := 0 to Pred( LPropCount ) do
      begin
        LPropInfo := LPropList^[LIdx];
        LPropType := LPropInfo^.PropType;

        LPropName := string( LPropInfo.Name );

        case LPropType^.Kind of

          tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkWChar, tkLString, tkWString, tkInt64{$IFDEF UNICODE}, tkUString{$ENDIF} :
            begin

              // ReadOnly-Property
              if ( LPropInfo.SetProc = nil )
              then
                Continue;

              LPropValue := GetPropValue( AInstance, LPropName );

              LTemp.Add( LPropValue );

            end;

        end;
      end;

    Result := LTemp.DelimitedText;

  finally
    LTemp.Free;
  end;
end;

procedure ObjFromStr( AInstance : TObject; const AStr : string; Delimiter : Char );
var
  LPropName, LPropValue : string;
  LPropInfo :             PPropInfo;
  LPropCount :            Integer;
  LPropList :             PPropList;
  LPropType :             PPTypeInfo;
  LIdx :                  Integer;
  LTemp :                 TStringList;
  LTempIdx :              Integer;
begin
  LPropCount := GetPropList( AInstance, LPropList );

  LTemp := TStringList.Create;
  try

    LTemp.Delimiter     := Delimiter;
    LTemp.DelimitedText := AStr;
    LTempIdx            := 0;

    for LIdx := 0 to Pred( LPropCount ) do
      begin
        LPropInfo := LPropList^[LIdx];
        LPropType := LPropInfo^.PropType;

        LPropName := string( LPropInfo.Name );

        case LPropType^.Kind of

          tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkWChar, tkLString, tkWString, tkInt64{$IFDEF UNICODE}, tkUString{$ENDIF} :
            begin

              // ReadOnly-Property
              if ( LPropInfo.SetProc = nil )
              then
                Continue;

              LPropValue := LTemp[LTempIdx];

              Inc( LTempIdx );

              SetPropValue( AInstance, LPropName, LPropValue );

            end;

        end;
      end;

  finally
    LTemp.Free;
  end;
end;

procedure SaveList( AList : TObjectList; const AFileName : string; Delimiter : Char );
var
  LData : TStrings;
  LIdx :  Integer;
begin
  LData := TStringList.Create;
  try
    for LIdx := 0 to Pred( AList.Count ) do
      LData.Add( ObjToStr( AList[LIdx], Delimiter ) );

    LData.SaveToFile( AFileName );
  finally
    LData.Free;
  end;
end;

procedure LoadList( AList : TObjectList; AItemClass : TClass; const AFileName : string; Delimiter : Char );
var
  LData : TStrings;
  LIdx :  Integer;
  LObj :  TObject;
begin
  AList.Clear;

  LData := TStringList.Create;
  try
    LData.LoadFromFile( AFileName );
    for LIdx := 0 to Pred( LData.Count ) do
      begin
        LObj := AItemClass.Create;
        try
          ObjFromStr( LObj, LData[LIdx], Delimiter );
          AList.Add( LObj );
          LObj := nil;
        finally
          LObj.Free;
        end;
      end;
  finally
    LData.Free;
  end;
end;

end.

Eine beispielhafte Verwendung findest du hier:

Delphi-Quellcode:

program ObjLstFile;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils, Classes, Contnrs,
  ObjLstFiler in 'ObjLstFiler.pas';

type
  TMyObject = class
  private
    FDatum : TDateTime;
    FInfo :  string;
    FKonto : Integer;
    FWert :  Currency;
    FMwSt :  Extended;
  published // es werden nur diese published properties gespeichert!!!
    property Datum : TDateTime read FDatum write FDatum;
    property Info :  string read FInfo write FInfo;
    property Konto : Integer read FKonto write FKonto;
    property Wert :  Currency read FWert write FWert;
    property MwSt :  Extended read FMwSt write FMwSt;
  end;

procedure Test;
var
  LList : TObjectList;
  LItem : TMyObject;
  LIdx :  Integer;
begin
  LList := TObjectList.Create( True );
  try

    // 50 Objekte erzeugen

    while LList.Count < 50 do
      begin

        LItem := TMyObject.Create;
        with LItem do
          begin
            Datum := Now;
            Info  := 'Info';
            Konto := Random( 1000 ) + 1000;
            Wert  := Random( 20000 ) / 100;
            MwSt  := Wert * 0.19;
          end;

        LList.Add( LItem );

      end;

    // Liste speichern

    SaveList( LList, 'MyList.txt', #14 );

  finally
    LList.Free;
  end;

  LList := TObjectList.Create( True );
  try

    // Liste aus Datei laden

    LoadList( LList, TMyObject, 'MyList.txt', #14 );

    for LIdx := 0 to Pred( LList.Count ) do
      begin

        LItem := LList[LIdx] as TMyObject;

        Writeln( LItem.Datum, ' ', LItem.Info, ' ', LItem.Konto, ' ', LItem.Wert, ' ', LItem.MwSt );
      end;

  finally
    LList.Free;
  end;
end;

begin
  try

    Test;

  except
    on E : Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

  ReadLn;

end.

[Natcree]

tkUString undeclared identifier ???

[Sir Rufo]

Zitat von Natcree:

tkUString undeclared identifier ???

Sorry, ja den musst du rausnehmen, weil du kein Unicode hast

[Natcree]

Kann mann diese Geschichte nicht auf ein Stringgrid1 umschreiben ???

Delphi-Quellcode:

procedure TForm1.DisplayData;
var
  Gesamt: double;
  i: integer;
  Item: TListItem;
begin
  Gesamt := 0;
  Kassenbuch.Items.BeginUpdate;
  try
    Kassenbuch.Items.Clear;
    for i := 0 to FObjects.Count - 1 do
      begin
        Item := Kassenbuch.Items.Add;
        item.Caption :=(Tirgendwas(FObjects[i]).DatumAsString);
        Item.SubItems.Add(TIrgendwas(FObjects[i]).BelegnummerAsString);
        Item.SubItems.Add(TIrgendwas(FObjects[i]).EinnahmeAsString + ' €');
        Item.SubItems.Add(TIrgendwas(FObjects[i]).ZweiteZahlAsString + ' €');
        Gesamt := Gesamt + TIrgendwas(FObjects[i]).Summe;
        Item.SubItems.Add(Format('%.2n €', [Gesamt]));
        Item.Data := FObjects[i];
      end;
  finally
    Kassenbuch.Items.EndUpdate;
  end;
end;

Mit den add Daten

Delphi-Quellcode:

begin
  if Form2.ShowModal = mrOK then
    begin
      FObjects.Add(Form2.Irgendwas);
      FGesamt := FGesamt + Form2.Irgendwas.Summe;
      sgObjects.Cells[1, sgObjects.Row] := Form2.Irgendwas.ErsteZahlAsString + ' €';
      sgObjects.Cells[2, sgObjects.Row] := Form2.Irgendwas.ZweiteZahlAsString + ' €';
      sgObjects.Cells[3, sgObjects.Row] := Format('%.2n €', [FGesamt]);
      sgObjects.RowCount := sgObjects.RowCount + 1;
      sgObjects.Row := sgObjects.Row + 1;
    end;
end;

Würde einiges leichtermachen

[Natcree]

Könnte der Code richtig sein

Delphi-Quellcode:

procedure TForm1.DisplayData;
 var
   Gesamt: double;
   i,j: integer;

 begin
   Gesamt := 0;
   for i:= 0 to SGObjects.RowCount-1 do
   Begin
   sgobjects.Rows[i].BeginUpdate;
   try
     SGObjects.Rows[i].clear;
     for j := 0 to FObjects.Count - 1 do
     begin
      FGesamt := TIrgendwas(FObjects[j]).Summe;
      sgObjects.Cells[1, sgObjects.Row] := (TIrgendwas(FObjects[j]).ErsteZahlAsString + ' €');
      sgObjects.Cells[2, sgObjects.Row] := (TIrgendwas(FObjects[j]).ZweiteZahlAsString + ' €');
      sgObjects.Cells[3, sgObjects.Row] := Format('%.2n €', [FGesamt]);
end;
finally
Sgobjects.rows[i].EndUpdate;
end;
end;
sgObjects.RowCount := sgObjects.RowCount + 1;
sgObjects.Row := sgObjects.Row + 1;
end;