200+ Texte in ein memo laden

[lbccaleb]

2x verwendet:

Delphi-Quellcode:

  private
    MyCountryDescriptions : TStringList;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
    MyCountryDescriptions : TStringList;

Dadurch dass du die Stringlist ja die ganze Zeit über in Benutzung hast, wie das Programm läuft, ist es vllt besser für dich musst du die Stringlist im Form.OnCreate erzeugen und erst im Form.Close wieder freigeben, da Sie sonst in der Procedure nicht initzialisiert ist.


Edit2:

Enferne die Version aus dem Privat Abschnitt, da sonnst die Procedure:
Procedure CopyCountryDescription(Const Country : String; Description : TStrings); Kein Zugriff auf die Variable hat.

[Volker Z.]

Hallo,

überleg Dir doch mal welche Eigenschaft Du in Button1Click initialisierst und auf welche Variable Du in CopyCountryDescription zugreifst, dann sollte Dir schnell klar werden warum es beim Zugriff auf MyCountryDescriptions.IndexOf('@@'+Country) scheppert.

Gruß

[Sir Rufo]

Hat schon mal jemand TClientDataSet in den Raum geworfen?

Für die Erstellung/Bearbeitung müsste man ein lüttes Progrämmle zusätzlich schreiben, der Aufwand hält sich in Grenzen und die Suche nach den Ländernamen sollte dank Index und InMemory auch sehr flott vonstatten gehen.

Im MyBase-Format gespeichert sollte es auch halbwegs "unleserlich" sein

BTW: Hier ein Tutorial

[Furtbichler]

Zitat von Sir Rufo:

Hat schon mal jemand TClientDataSet in den Raum geworfen?

Nein, aber das ist wirklich eine einfache Möglichkeit.

[Spectre]

danke rufo für den link!
ich habs geschafft in ne binäre .cds datei daten zu speichern und zu laden, da sind sie vor manipulationsversuchen (zumindest für die meisten) ein bischen sicherer. aber wie kriege ich die daten aus dem DBGrid ins memo?? erst für jedes land ne zeile im grind definieren und dann aus der zeile (bzw der id) lesen und ins memo übertragen?

lg robin

[Sir Rufo]

Das DBGrid braucht man nur zur Anzeige. Die Daten selber befinden sich im DataSet. Also auch nur das DataSet fragen.

TDataSet.Locate und TDataSet.FieldByName sind dein Freund

[Spectre]

ich probiers morgen mal aus, danke!

[Spectre]

hmm...wie initialisiere ich das?

Code:

memo1.Text := clientdataset1.FieldByName('C:\MEINPFAD\test2.cds')

funktioniert natürlich wenig hilfreich xD
sorry ich bin ein absoluter anfänger was solche binären daten angeht...hast du nen beispielcode wie ich auf spezielle IDs zugreife mit dem memo hab das tutorial soweit durchgearbeitet und ein memo1 der form hinzugefügt, aber wie greife ich auf die IDs zu?

[Spectre]

könnt ihr hier bitte nochmal einen blick draufwerfen? hab nur nen button und ein memo im programm.
ich habe die stringlist deklariert, create ist auch drin, aber es passiert auf knopfdruck....einfach mal gar nichts. die fehlermeldung zumindest ist weg..was mache ich falsch?
land.txt mitsamt @@deutschland und text existiert natürlich.

Code:

var
  Form1: TForm1;
   MyCountryDescriptions : TStringList;


implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(MyCountryDescriptions);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyCountryDescriptions := TStringList.Create;
end;

Procedure CopyCountryDescription(Const Country : String; Description : TStrings);
Var
  i : Integer;

Begin

  Description.Clear;
  i:= MyCountryDescriptions.IndexOf('@@'+Country);
  if i=-1 then exit; // Keine Beschreibung gefunden
  inc(i);
  Description.BeginUpdate;
  Try
    while (i<MyCountryDescriptions.Count) do
      if Copy(MyCountryDescriptions[i],1,2) <> '@@' then
        break
      else begin
        Description.Add(MyCountryDescriptions[i]);
        inc(i);
      end
  finally
    Description.EndUpdate;
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyCountryDescriptions.LoadFromFile('C:\Games\land.TXT');    //der pfad ist hier richtig plaziert?
CopyCountryDescription('deutschland',Memo1.Lines);
end;

end.

danke!

[Bummi]

Du hast einen Flüchtigkeitsfehler drin

 if Copy(MyCountryDescriptions[i],1,2) = '@@' then // statt <>