StringChek

Brug pos til at beestemme position af en karakter(eller en samling her af)i en tekststreng.

formlen er følgende

Pos(substring,String)

Eksempel

Pos('Dag','Idag') retunere 2 da dag starter i strengen på position 2
hvis den ikke findes i strengen retuneres 0.

ovenstående var et svar

jeg er ret ny med delphi
så jeg forstår ikke helt hvad du mener

og desuden skal jeg samligne det der indtastes i TEditen og hver enkelt bogstavtal skal så samlignes med en værdi'er i en konstant!


prøv og skrive denne kode:

brugeren indtaster et ord. hvert enkelt ord bliver så Chekket om r i en bestemt mængde i en konstant. Hvis ja: ShowMessage ('tillykke')+ ordet.  Hvis ikke: ShowMessage ('Fallit')+ ordet.

ups: fejl

brugeren indtaster et ord. hvert enkelt bogstav bliver så Chekket om det er til stæde i en bestemt mængde i en konstant. Hvis ja: ShowMessage ('tillykke')+ ordet.  Hvis ikke: ShowMessage ('Fallit')+ ordet.

const
  tilladtIndhold: String = 'abcde';

Var
  i: integer;
  OrdStreng: String;  (*Ordet som skal checkes*)
  OkCheck : Boolean;

OkCheck := True;
for i := 1 to length(OrdStreng) do
  if pos(OrdStreng[i],TilladtIndhold) = 0 then OkCheck := False;
If OkCheck then
  ShowMessage('Tillykke: '+OrdStreng)
else
  ShowMessage('Fallit: '+OrdStreng);


//hreiff

procedure TForm1.Button1Click(Sender: TObject);
var
  ConstString : String;
  i : integer;
  TempString : String;
  Success : boolean;
begin
  ConstString := 'Hej med dig';
  TempString := EDit1.Text;
  Success := true;
  for i := 1 to Length(EDit1.Text) do
  begin
    if Pos(TempString[i],ConstString) = 0 then
      Success := false;
  end;
  if Success then
    ShowMessage('Tillykke')
  else
    ShowMessage('Ikke tillykke');
end;