Hallo. Ich habe ein Memofeld per Stream abgespeichert und in einen Stream abgespeichert. Das auslesen klappt auch wunderbar über das Memofeld. Jedoch möchte ich nun an die Stringliste auch OHNE MemoFeld heran kommen. Wie geht das? Hier meine Idee.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormDateneingabeBuecher.TabelleMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var ACol, ARow: longint;
    Hint : String;
    StringList : TStrings;
    MemoryList : TMemoryStream;
begin
     Tabelle.MouseToCell(X, Y, ACol, ARow);
     if (ACol = 3) then
     begin
          Hint := Tabelle.Cells[0, ARow];
          Buecher[Tabelle.Row].Langbeschreibung.Position := 0;
          MemoryList := TMemoryStream.Create;
          MemoryList.LoadFromStream(Buecher[Tabelle.Row].Langbeschreibung);

          StringList := TStrings.Create; //Mit und ohne diese Zeile gibt es eine Fehlermeldung
          MemoryList.Position := 0;
          StringList.LoadFromStream(MemoryList);

          Tabelle.Hint:=Hint;
          if (ACol<>LastCol) or (ARow<>LastRow) then
          begin
               Application.CancelHint;
               LastCol:=ACol;
               LastRow:=ARow;
          end;
          MemoryList.Free;
          StringList.Free;
     end;
end;

Wieso der umweg über MemoryStream?
Und statt TStrings.Create einfach TStringsList.Create; - TStrings ist eine abstrakte Klasse!

markieren

Code:

procedure TFormDateneingabeBuecher.TabelleMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var ACol, ARow: longint;
    Hint : String;
    StringList : TStrings;
begin
     Tabelle.MouseToCell(X, Y, ACol, ARow);
     if (ACol = 3) then
     begin
          Hint := Tabelle.Cells[0, ARow];
          Buecher[Tabelle.Row].Langbeschreibung.Position := 0;

          StringList := TStringsList.Create;
          StringList.LoadFromFile(Buecher[Tabelle.Row].Langbeschreibung);

          Tabelle.Hint:=Hint;
          if (ACol<>LastCol) or (ARow<>LastRow) then
          begin
               Application.CancelHint;
               LastCol:=ACol;
               LastRow:=ARow;
          end;
          StringList.Free;
     end;
end;