Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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;