PlItems

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" }

ID: 24
PlCodelang: Caché
PlGroup: Caché-Spezifisch, Netzwerk
PlItemTitle: Superserver-Port
Code: W !,$ZU(172,0) ; z.B. 1972

ID: 34
PlCodelang: Caché
PlGroup: Caché-Spezifisch, Prozesse/Jobs
PlItemTitle: Variableninhalt eines fremden Prozesses ermitteln
Code: ; Important: You musn't check variables in your own job, it will result in a <PARAMETER>-Error! Set checkjob=1234 Set checkvar="foo" ; Check if job is not my own Quit:checkjob=$Job ; Check if Job exists und prompt the content of the varible foo If $Data(^$Job(checkjob)) W !,$ZUtil(88,2,checkjob,checkvar) ; Prompts the content of the variable foo, maybe it is 'bar' ;-)

ID: 82
PlCodelang: Caché
PlGroup: Textdateien
PlItemTitle: Textdatei schreiben
Code: Set file=##class(%File).%New("file.txt") Write file.Size Do file.Open("WSN") Do file.WriteLine("This is a line of text")

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: 29
PlCodelang: Java
PlGroup: Array
PlItemTitle: Array definieren
Code: String[] ar = new String[] {"Satz1", "Satz2"};