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.