Question

How to find the first non-repeated character in a string with Pascal

Answer 1

program FirstUniqueChar;

function GetFirstNonRepeatedCharacter(const s: string): Char;
var
  i, j: Integer;
  found: Boolean;
begin
  for i := 1 to Length(s) do
  begin
    found := True;
    for j := 1 to Length(s) do
    begin
      if (i <> j) and (s[i] = s[j]) then
      begin
        found := False;
        Break;
      end;
    end;
    if found then
    begin
      GetFirstNonRepeatedCharacter := s[i];
      Exit;
    end;
  end;
  GetFirstNonRepeatedCharacter := #0; // No unique character found
end;

begin
  WriteLn(GetFirstNonRepeatedCharacter('ppdadxefe'));
end.



(*
run:

a
 
*)

 

70+ SQL courses for beginners and professionals