Probleme mit tStrings und Strings im Memofeld

Thema durchsuchen

Ansicht

Themen-Optionen

Probleme mit tStrings und Strings im Memofeld

Ein Thema von chrizke · begonnen am 9. Feb 2007 · letzter Beitrag vom 14. Mär 2007

Vorheriger Beitrag

Nächster Beitrag

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.441 Beiträge

Delphi 2007 Professional

#14

Re: Probleme mit tStrings und Strings im Memofeld

9. Feb 2007, 13:36

deklariere zeilenarray auch als TStringArray

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfMain.btEinlesenClick(Sender: TObject);

var i, Code, aNr, aJahr:integer;

    Zeile,testt, aSachgebiet, aAutor, aTitel, aOrt, aVerlag : String;

    neu : tBuch;

    zeilenarray:TStringArray;

begin

  mAnzeige.Lines.LoadFromFile('Buecher.txt');

  Anzahl := mAnzeige.Lines.Count;

  Buchliste := tListe.create;

  for i := 0 to Anzahl-1 do begin

     Zeilenarray:=Split(mAnzeige.lines[i], ';');

  end;