@Prometheus:
TCH, te oktatsz ki a piálásról? :P

@kemi:
Egy linuxnál már természetes, hogy agyon kell hekkelgetni, hogy működjön

@kemi:
de milyen már ez egy magát felhasználóbarátnak hirdető OS-nél?!

@kemi:
Mi a fenét gondoltak az M$-nél, hogy rákényszerítenek egy érintőképernyőre tervezett tablet felületet a desktop júzerekre?

unit StrArrFunc;

{$mode objfpc}{$H+}

interface

type
    DynStrLst = Array of String;
    PDynStrLst = ^DynStrLst;

Procedure SplitString(S: String; delim: Char; dest: PDynStrLst);
Function GlueArray(src: PDynStrLst; delim: Char): String;
Function ArrayPosition(data: PDynStrLst; search: String): Longint;

implementation

Procedure SplitString(S: String; delim: Char; dest: PDynStrLst);
var
   count, i, l: Longint;
   sub: String;
Begin
     SetLength(dest^, 0);
     count := 0;
     sub := '';
     l := Length(S);
     For i := 1 To l Do
     Begin
          If (S[i] = delim) Then
          Begin
               count := count + 1;
               SetLength(dest^, count);
               dest^[count - 1] := sub;
               sub := '';
          end
          Else
          Begin
               sub := sub + S[i];
          end;
     end;
     SetLength(dest^, count + 1);
     dest^[count] := sub;
end;

Function GlueArray(src: PDynStrLst; delim: Char): String;
var i, l: Longint;
Begin
     GlueArray := '';
     l := Length(src^) - 2;
     If (l > -2) Then
     Begin
          For i := 0 To l Do
          Begin
               GlueArray := GlueArray + src^[i] + delim;
          end;
          GlueArray := GlueArray + src^[l + 1];
     end;
end;

Function ArrayPosition(data: PDynStrLst; search: String): Longint;
var i, l: Longint;
Begin
     l := Length(data^) - 1;
     ArrayPosition := - 1;
     For i := 0 To l Do
     Begin
          If (data^[i] = search) Then
          Begin
               ArrayPosition := i;
               Exit;
          end;
     end;
end;

end.

@TCH:

If (S[i] = delim) Then
Begin
    count := count + 1;
    SetLength(dest^, count);
    dest^[count - 1] := sub;
    sub := '';
end

@kemi:
De mindjárt megírom C++-ban, úgyis kell a gyakorlat. :)

• Google Chrome 23: 284.5ms
• Mozilla Firefox 16: 298.2ms
• Opera 12.10: 341.8ms

• Google Chrome 23: 285.2ms
• Mozilla Firefox 16: 298.2ms
• Opera 12.10: 339.4ms

• Google Chrome 23: 286.7ms
• Mozilla Firefox 16: 302.7ms
• Opera 12.10: 343.8ms

• Google Chrome 23: 448 + 13 pont
• Opera 12.10: 402 + 9 pont
• Mozilla Firefox 16: 357 + 10

$x = (isset($y['z'])) ? true : false;

#ifndef STRARRFUNC_H_
#define STRARRFUNC_H_

#include <iostream>
#include <vector>

using namespace std;

void SplitString(string s, char delim, vector<string>* dest);
string GlueArray(vector<string> src, char delim);
long int ArrayPosition(vector<string> data, string search);


#endif /* STRARRFUNC_H_ */

#include "StrArrFunc.h"

using namespace std;

void SplitString(string s, char delim, vector<string>* dest) {
	int count = 0;
	string sub = "";
	int l = s.length();
	for (int i = 0; i < l; i++) {
		if (s[i] == delim) {
			count++;
			dest->push_back(sub);
			sub = "";
		} else {
			sub += s[i];
		}
	}
	dest->push_back(sub);
}

string GlueArray(vector<string> src, char delim) {
	string GlueArray = "";
	long int l = src.size() - 1;
	if (l > -1) {
		for (int i = 0; i < l; i++) {
			GlueArray += src[i];
			GlueArray += delim;
		}
		GlueArray += src[l];
	}
	return GlueArray;
}

long int ArrayPosition(vector<string> data, string search) {
	long int l = data.size();
	for (long int i = 0; i < l; i++) {
		if (data[i] == search) {
			return i;
		}
	}
	return -1;
}