Forum: Win32/Win64 API (native code)
Delphi
by Prototypjack,
10. Sep 2007
Moin,
Naja, da würde mir nur die Brecheisenmethode einfallen, sprich, Pos und Delete/Copy. Wenn keine Klammer vorhanden ist, wird auch nichts gelöscht.
Kleiner (vielleicht fehlerbehafteter, bin gerade nicht am Produktiv-System, also kein Delphi) Code zur Veranschaulichung bzw. ein Lösungsvorschlag:
function DeleteBracket(lString: string): string;
var
I: Integer;
Forum: Win32/Win64 API (native code)
Delphi
by Prototypjack,
9. Sep 2007
Moin,
Die Systemsprache bekommst du mit GetSystemDefaultLangID;.
Den Namen davon bekommst du mit function GetLanguageNameByID(AID: Integer): WideString;
begin
SetLength(Result,MAX_PATH);
SetLength(Result, VerLanguageNameW(AID,@Result, length(Result)));
end;