Operacje na stringu[DELPHI]

procedure TForm1.Button1Click(Sender: TObject);
var
bufor: string;
begin
if self.CzyCyfraN(edit1.Text, 1) then begin
edit2.Text:=self.ObetnijKod(edit1.Text);
end
else
begin
end;
end;


function TForm1.CzyCyfraN(s: string; n: Integer): Boolean;
begin
if s[n] in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']
then Result := True
else Result := False;
end;

function TForm1.CzyLancuchJestLiczba(s: string): Boolean;
begin
Result := False;
if StrToFloatDef(s, 0) <> 0
then Result := True;
if StrToFloatDef(s, 1) <> 1
then Result := True;
end;

function TForm1.ObetnijKod(Tekst: string): string;
begin
result:=copy(tekst,8,edit1.GetTextLen);
end;

Więcej na: http://lasica.hostdmk.net/delphi.html#B1

Zmiana Stylu wyglądu formy [JAVA]

UIManager.setLookAndFeel
(UIManager.getSystemLookAndFeelClassName());

Ikona aplikacji [JAVA]

Funkcja ustawiająca ikonę aplikacji:

private void ApplicationImage(String IconName) {
Image image = Toolkit.getDefaultToolkit().getImage("1.png");
this.setIconImage(image);
}

Sprawdzenie listy procesów [JAVA]

Funkcja sprawdzająca listę procesów:

public static void ProcessList() {
Process p = null;
try {
p = new ProcessBuilder("tasklist").start();
InputStream is = p.getInputStream();
BufferedReader br = new BufferedReader(new InputStreamReader(is));
String line;
while ((line = br.readLine()) != null) {
System.out.println(line);
}
} catch (IOException ex) {
ex.printStackTrace();
System.out.println(ex.getMessage());
}
}

W taki sam sposób można uruchomić inne programy zmieniając

p = new ProcessBuilder("tasklist").start();

na:

p = new ProcessBuilder("help").start();

Więcej szczegółów na tej stronie.