|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Groß und Klein schreiebnung
30. Aug 2006, 15:31
Delphi-Quellcode:
function strequal(const str1, str2: String; const casesensitive: Boolean=True);
begin
if casesensitive then result:=str1=str2
else result:=ansilowercase(str1)=ansilowercase(str2);
end;
Aufgerufen dann so: strequal(str1, str2, False);
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|