in text einen string bis zum * auslesen?

[marabu]

Hallo,

hier noch eine Anwendung der D7-Hausapotheke:

Delphi-Quellcode:

const
  FN_VOKABELN = 'D:\Vokabeln.dat';

procedure TDemoForm.TestButtonClick(Sender: TObject);
var
  vokabeln: TStrings;
begin
  vokabeln := TStringList.Create;
  with vokabeln do
  try
    //  NameValueSeparator := '*';
    //  LoadFromFile(FN_VOKABELN);
    Add('Nein=hapana');
    Add('Arzt=daktari');
    ShowMessage(Values['nein']);
  finally
    Free;
  end;
end;

Gute Nacht