Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
function IsReserved(S: String): Boolean;
var
RWList: TStringList; // Liste der reservierten Wörter
i: Integer; // Laufvariable
begin
RWList := TStringList.Create;
Result := False;
{Liste initialisieren, z.B. aus Datei laden:}
RWList.LoadFromFile(ExtractFilePath(Application.ExeName) +
'FileName.dat'); // <<< FileName.dat durch einen Dateinamen ersetzen
{Liste durchsuchen:}
for i := 0 to RWList.Count - 1 do
begin
RWList[i] := Trim(RWList[i]); // Leerzeichen am Anfang und am Ende weg
if SameText(RWList[i], S) then // reseviertes Wort gefunden
begin
Result := True;
Break;
end;
end;
RWList.Free;
end;