Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Datensätze in TStringlist einfügen (https://www.delphipraxis.net/106409-datensaetze-tstringlist-einfuegen.html)

Sternenmaedchen 10. Jan 2008 15:32

Re: Datensätze in TStringlist einfügen
 
Vielen Dank euch beiden :)

Ich habe es doch noch selbst hinbekommen, hatte nicht daran
gedacht das ich bei meiner TwwTable direkt auf die Felder zugreifen kann.

Meine Vorläufige Lösung (vielleicht nicht perfekt aber sie funktioniert erstmal ^^):

Delphi-Quellcode:

procedure TProzedurname.BtnButtonClick(Sender: TObject);
var
  liste : TStringlist;
begin

  liste := TStringlist.create;
  TblSelData.disableControls;
  TblSelData.first;

  While not TblSelData.EOF do
  begin
    if TblSelDataAusw.value = 'J' then
    Begin
      liste.Add(TblSelDataIrgendwas.value);
    End;
      TblSelData.next;
  end;

    liste.SavetoFile('test.text');
    liste.Free;
    TblSelData.enableControls;

end;
Ich wünsche euch allen noch einen schönen Tag =)

s-off 10. Jan 2008 15:36

Re: Datensätze in TStringlist einfügen
 
Du solltest alles zwischen dem Erzeugen einer Objektinstanz und deren Freigabe in einen try-finally-Block packen und die Freigabe dann in den Finally-Teil.

Sternenmaedchen 11. Jan 2008 11:12

Re: Datensätze in TStringlist einfügen
 
Hallo S-Off,

danke das ist mir bewusst :)
sollte ja auch nur ein vorläufiger Lösungsnsatz sein.

Nocheinmal Danke für eure Mühe.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:55 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz