use if function on array (lazarus)

[asim1999]

I am trying to check values in an array awhen a string is input and then they are converted to ascii values and stored in the array. Basically if a value is less than 65 the change that value to 65 and if a value is higher than 90 then change to 90

How do I do this?

[juretrn]

What language?

But in general, I'd do something like this:

You should do the check within a [for loop] with going from [0 to array size-1].

 

I hope this is somewhere close to what you need...

 

 

[werto165]

What language?

But in general, I'd do something like this:

You should do the check within a [for loop] with going from [0 to array size-1].

I hope this is somewhere close to what you need...

The language is pascal (lazarus is the name of the ide I think)

[juretrn]

The language is pascal (lazarus is the name of the ide I think)

Ah okay, I never used pascal.

[asim1999]

I know about the for loop, but don't know how to check specific values within the array as the array is dynamic, and so contains as many characters that were input in the string at the beginning

[ZeferiniX]

I am trying to check values in an array awhen a string is input and then they are converted to ascii values and stored in the array. Basically if a value is less than 65 the change that value to 65 and if a value is higher than 90 then change to 90

How do I do this?

if( arr[index] < 65 )  arr[index] = 65else if( arr[index] > 90 )  arr[index] = 90

I wonder how you're gonna handle numbers between 65 and 90 inclusive. Just leave it?

 

Dunno how to code in Pascal, never tried it but if you're asking for the logic, there you go

[KuroSetsuna29]

I never used pascal, but if you are trying to convert from char to ascii value, looks like you can use ORD with follow @ZeferiniX logic.

 

Reference: http://borlandpascal.wikia.com/wiki/Char

 

Excuse my pascal, first time:

var i : integer;var s : string;var arr : array of integer; (* dynamic array *)begin  s := 'HELLO, WORLD!'; (* your input string *)  setLength(arr, byte(s[0])); (* set dynamic array to length of string *)    for i := 1 to byte(s[0]) do (* loop through input string *)  begin    if ( ord(s[i]) < 65 ) then        arr[i - 1] := 65    else if ( ord(s[i]) > 90 ) then        arr[i - 1] := 90    else        arr[i - 1] := ord(s[i]);  end;end.

This will clip characters to only A-Z, please note that this includes spaces, periods, etc.