PlItems

ID: 203
PlCodelang: Java
PlGroup: Filehandling
PlItemTitle: Ternary operator
Code: String thisVar = "OK"; boolean resultVar; resultVar = thisVar.equals("OK") ? true : false; // same as if-else construction if (thisVar.equals("OK")) { resultVar = true; } else { resultVar = false; }

ID: 26
PlCodelang: Delphi
PlGroup: Exceptions
PlItemTitle: Try Catch Except
Code: try // Code except // Handle the exception here... end;

ID: 27
PlCodelang: Delphi
PlGroup: Datum, Zeit
PlItemTitle: Aktuelles Datum/Uhrzeit
Code: str:=FormatDateTime('yyyymmdd hhnnss',now); // gibt aus 20100331 120723

ID: 28
PlCodelang: Delphi
PlGroup: Prozeduren, Funktionen, Methoden
PlItemTitle: Verarbeitung gezielt beenden
Code: procedure TForm1.Proz(Sender: TObject); begin If 1<>2 Then exit; ShowMessage('Test'); end;

ID: 44
PlCodelang: Delphi
PlGroup: Filehandling
PlItemTitle: Datei auf dem Betriebssystem ausführen
Code: procedure TForm1.MenuDummy1Click(Sender: TObject); var ExeName : array[0..255] of char; myFile : String; begin myFile:='winword.exe'; Showmessage('Starte: ' + myFile); StrPCopy(ExeName, myFile); ShellExecute(MainForm.Handle, 'open', ExeName, nil, nil, SW_SHOWNORMAL); // Drucken geht dann so (siehe auch Dateitypen im Windows Explorer): ShellExecute(MainForm.Handle, 'print', ExeName, nil, nil, SW_SHOWNORMAL); end;

ID: 55
PlCodelang: Delphi
PlGroup: GUI, Komponenten allgemein
PlItemTitle: Mit Return ein Ereignis im Textfeld auslösen
Code: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; ShowMessage('Auswerten ...'); end; end;

ID: 71
PlCodelang: Delphi
PlGroup: Schleifen
PlItemTitle: For-Schleife
Code: for i := 0 to 4 do Writeln(i);

ID: 72
PlCodelang: Delphi
PlGroup: Strings
PlItemTitle: Replace
Code: procedure foo() var str1: String; begin str1:=StringReplace('Hello World...','...',[rfReplaceAll, rfIgnoreCase]); // Output of str1 => "Hello World" end

ID: 73
PlCodelang: Delphi
PlGroup: Windows - Prompt Errorlevel
PlItemTitle: Errorlevel setzen
Code: //... var errorlevel: Integer; begin if cond1=cond2 then errorlevel:=0; if cond1<>cond2 then errorlevel:=1; halt(errorlevel); end.

ID: 74
PlCodelang: Delphi
PlGroup: Typenkonvertierung
PlItemTitle: String in Integer konvertieren
Code: MyInt:=StrToInt('125');

ID: 77
PlCodelang: Delphi
PlGroup: Filehandling
PlItemTitle: Applikations-/Script-Verzeichnis ermitteln
Code: AppPath:=ExtractFilePath(Application.Exename);

ID: 78
PlCodelang: Delphi
PlGroup: Anwendungskonfigurationsdateien
PlItemTitle: INI-Datei lesen
Code: uses IniFiles; var iniMem: TMemIniFile; // ini-File (ready only one time) // Load the ini-information once - maybe at startup function TMyForm.LoadIniFile:boolean; var SL : TStringList; return : Boolean; iniFile : String; begin iniFile:='myFormConfig.ini'; return:=true; if not FileExists(ExtractFilePath(Application.Exename)+iniFile) then begin MessageDlg('ini-File not found!', mtError, [mbOK], 0); return:=false; end; if not return then halt; iniMem:=TMemIniFile.Create(''); SL:=TStringList.Create; SL.LoadFromFile(ExtractFilePath(Application.Exename)+iniFile); iniMem.SetStrings(SL); LoadIniFile:=return; end; procedure TMyForm.DoThis; begin ShowMessage(iniMem.ReadString('Section','Attribute','Default-Value')); end;

ID: 116
PlCodelang: Delphi
PlGroup: Strings
PlItemTitle: String nach einem Teilstring durchsuchen
Code: searchFor:='this'; text:='this is a simple text'; if pos(searchFor,text)>0 then begin ShowMessage('found'); end;

ID: 177
PlCodelang: Delphi
PlGroup: Filehandling
PlItemTitle: Prüfen ob Datei existiert
Code: procedure TForm1.CheckIfFileExists(); var filePath : String; begin filePath:='C:\User\myUser\text.txt'; if FileExists(filePath) then begin ShowMessage('There it is! ;-)'); end else begin ShowMessage('Whow, file is missing at this place :-('); end; end;

ID: 221
PlCodelang: Delphi
PlGroup: Strings
PlItemTitle: Position eines Teilstrings finden
Code: searchFor:='simple'; text:='this is a simple text'; ShowMessage(IntToStr(pos(searchFor,text))); // 11

ID: 8
PlCodelang: Caché
PlGroup: Datum, Zeit
PlItemTitle: Aktuelles Datum/Uhrzeit
Code: ; Datum und Uhrzeit formatiert ausgeben Set datuhr=$ZDateTime($Horolog,8) ; ergibt 20100308 09:47:36 ; nur Datum Set dat=$ZDate($Horolog,3) ; = 2010-03-08 ; nur Zeit Set uhr=$ZTime($Piece($H,",",2)) ; = 09:50:20

ID: 12
PlCodelang: Caché
PlGroup: Datenbank
PlItemTitle: Lesen Datensatzes
Code: ; Es existiert eine Tabelle namens Table.Cities welche einen Eintrag mit der ID=15 enthält. Diese Tabelle enthält das Feld "Name" Set ds=##class(Table.Cities).%OpenId(15) Write !,ds.Name ; Oder über SQL Set result = ##class(%Library.ResultSet).%New() Set sql = "SELECT Name FROM Table.Cities WHERE ID=15" Do result.Prepare(sql) Do result.Execute("") For { Quit:'result.Next() Set name=result.Data("Name") }

ID: 17
PlCodelang: Caché
PlGroup: HTTP Form Submit
PlItemTitle: GET Link-Parameter lesen
Code: ; http://localhost:1972/csp/test/page.csp?name=john Set linkparm=$Get(%request.Data("name",1)) Write !,linkparm ; = john

ID: 18
PlCodelang: Caché
PlGroup: Textdateien
PlItemTitle: Textdatei zeilenweise auslesen
Code: Set stream=##class(%FileCharacterStream).%New() Set stream.Filename="c:\myfile.txt" While 'stream.AtEnd { Set line=stream.ReadLine() ; Process the line here }

ID: 19
PlCodelang: Caché
PlGroup: Caché-Spezifisch, Namespaces
PlItemTitle: Prüfen ob ein Namespace existiert
Code: If $ZUtil(90,10,"SAMPLES") { ZNSpace "SAMPLES" }