200+ Texte in ein memo laden

[Furtbichler]

Sagen wir, deine Text-Datei sieht so aus:

Code:

@@Deutschland
Hier ist der 
Text
für die
Bundesrepublik
@@England
Und hier für UK
..

Dann liest Du diese Datei in eine TStringList ein...

Delphi-Quellcode:

Var
  MyCountryDescriptions : TStringList;
...

MyCountryDescriptions.LoadFromFile('Laender.TXT');

Einen Beschreibungstext kannst Du so bekommen:

Delphi-Quellcode:

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(MyCountrDescriptions[i],1,2) <> '@@' then 
        break
      else begin
        Description.Add(MyCountrDescriptions[i]);
        inc(i);
      end
  finally
    Description.EndUpdate;
  end
end;
...
// Aufruf z.B. so
  CopyCountryDescription('Deutschland',Memo1.Lines);

Das wäre jetzt für Dich die einfachste Möglichkeit. So kannst Du die Datei auch jederzeit erweitern.