SRL Archive - SRL Archives

Function code:

// check to see if a certain string starts AND ends with something.
// returns true if the above is true.
// Made by Ron :)
function StartEnd(Str, StartsWith, EndsWith: string): boolean;
begin
  if (lowercase(copy(Str, 1, Length(StartsWith))) = lowercase(StartsWith)) and (lowercase(copy(Str, Length(Str) - Length(EndsWith) + 1, Length(Str))) = lowercase(EndsWith)) then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;
end;

Test function code:

program New;

const
  Website = 'http://www.google.com';

// check to see if a certain string starts AND ends with something.
// returns true if the above is true.
// Made by Ron :)
function StartEnd(Str, StartsWith, EndsWith: string): boolean;
begin
  if (lowercase(copy(Str, 1, Length(StartsWith))) = lowercase(StartsWith)) and (lowercase(copy(Str, Length(Str) - Length(EndsWith) + 1, Length(Str))) = lowercase(EndsWith)) then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;
end;

begin
  ClearDebug;
  if(StartEnd(Website,'http://','.com'))then
    WriteLn('"'+Website+'" starts with http:// and ends with .com');
end.

~Ron

Ok, now tell me what this is useful for, lol :)

lol well I used it in the stats grabber to see if what the user put in ended with a .ini and began with c:\

:D

I see, well you can however cut down the lines a bit :)

function StartEnd(Str, StartsWith, EndsWith: string): boolean;
begin
  if (lowercase(copy(Str, 1, Length(StartsWith))) = lowercase(StartsWith)) and (lowercase(copy(Str, Length(Str) - Length(EndsWith) + 1, Length(Str))) = lowercase(EndsWith)) then
    Result := True
  else
    Result := False;
end;

Ya like you saw in the scar 2.04 thread, I didn't know how to do that.

So used to ending all my statements in semicolons. :D Thanks again for helping me with that!