1:
2:
3:
4:

IF OpenDialog1. Execute THEN
 BEGIN
  Memo1.LoadFormFile(OpenDialog1.FileName);
 END;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure LoadFile(FIleName:String);
var 
  Stream:TFileStream;
begin
  Stream:=TFileStram.Create(FileName, fmOpenRead);
  Memo1.LoadFromStream(Stream);//sollte funktionieren
  Stream.Free;  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

type
 TIntArray = array of integer;

function Search_all(substr: string; str: string): TIntArray;
var
 s,s2,s3: pchar;
 idx: integer;
begin
 s := pchar(str);
 s2 := pchar(substr);
 idx := 1;
 repeat
  if s^ = s2^ then
  begin
   s3 := pchar(str);
   inc(s3,idx-1);
   while (s2^ <> #0) and (s3^ <> #0) and (s2^ = s3^) do
   begin
    inc(s2);
    inc(s3);
   end;
   if (s2^ = #0) then
   begin
    setlength(result,length(result)+1);
    result[high(result)] := idx;
   end;
   s2 := pchar(substr);
  end;
  inc(s);
  inc(idx);
 until s^ = #0;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

type
  TCharSet = set of char;

const
  def_charset = [' '];
  charset_all = [#0..#255];


function wordcount(s: string; nw: TCharSet = def_charset): integer;
var
 p: pchar;
 new: boolean;
begin
 p := pchar(s+' ');
 result := 0;
 new := false;
 repeat
  if not (p^ in charset_all-nw) then
   if not new then
   begin
    inc(result);
    new := true;
   end
   else
  else
   new := false;
  inc(p);
 until p^ = #0;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

function replace_all(search: string; replace: string; str: string): string;
var
 f: TIntArray;
 p: integer;
 slength: integer;
 s: pchar;
 idx: integer;
begin
 p := 0;
 f := Search_all(search,str);
 slength := length(search);
 s := pchar(str);
 result := '';
 idx := 1;
 repeat
  if p > high(f) then
   while s^ <> #0 do
   begin
    result := result + s^;
    inc(s);
   end
  else
  begin
   if f[p] = idx then
   begin
    inc(idx, slength);
    inc(s, slength);
    inc(p);
    result := result + replace;
   end
   else
   begin
    result := result + s^;
    inc(idx);
    inc(s);
   end;
  end;
 until s^ = #0;
end;