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:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    function nextitem( var s_Text : String;var rueckgabe: string): boolean;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const C_TRENNZEICHEN = #9;   //Trennzeichen  hier TAB

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sl : TStringlist;
    i : Integer;
    s, s2 : String;
begin
  if opendialog1.execute then
  begin
    sl := TStringlist.Create;
    sl.clear;
    sl.LoadFromFile(opendialog1.FileName);
    for i := 0 to sl.Count - 1 do
    begin
      s := sl.Strings[i];
      repeat
        if nextitem(s,s2) then
          listbox1.Items.add(s2);
      until s='';
    end;

  end;

end;

function TForm1.nextitem( var s_Text : String;var rueckgabe: string): boolean;
var trennposition : Integer;
    itemfound : boolean;
begin
  itemfound := false;                                             // Neues Item gefunden?
  trennposition := POS(C_TRENNZEICHEN,s_Text);                    // Trennzeichen in Zeile?
  if POS(C_TRENNZEICHEN,s_Text) > 0 then                          // Trennzeichen gefunden!
  begin
    itemfound  := true;
    rueckgabe := COPY(s_text,1,trennposition-1);                  // Item zurückgeben
    if trennposition < length(s_Text) then
      s_Text := COPY(s_Text,trennposition+1, length(s_text))      // Item ausschneiden
    else
      s_Text := '';
  end
  else                                                            // kein Trennzeichen gefunden, aber der Satz muss ja nicht zuende sein.
  begin
    if length(s_text) > 0 then                                    // Den Rest einlesen
    begin
      itemfound := true;
      rueckgabe := s_Text;
      s_Text := '';
    end;
  end;
  result := itemfound;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure StrToList(str: String; List: TListBox);
var j: Integer; //Zählervariable 
var CurrentItem: String;
const TRENNZEICHEN = #9; //Tabulator
begin
  j := 1;
  CurrentItem := '';
  while j < Length(str) do begin //alle zeichen durchzählen
    if str[j] <> TRENNZEICHEN then begin //wenn nicht das trennzeichen
      CurrentItem := CurrentItem + str[j]; //dann das zeichen in nem andern String speichern
    end else begin //wenn das trennzeichen
      List.Items.Add(CurrentItem); //anderen String zur Liste hinzufügen
      CurrentItem := ''; 
    end;
    inc(j); //nächstes zeichen
  end;
  if Length(CurrentItem) <> 0 then //wenn noch was in dem String steht 
    List.Items.Add(CurrentItem); //zur Liste hinzufügen
end;					

1:

MemoEinzulesendeDatei.Lines.LoadFromFile(OpenDialog1.FileName);					

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:

function AsciiToAnsi(s: string): string;
var
  i: integer;
  st : string;
begin
  st := '';
  if length (s) > 0 then begin
    for i := 0 to Length(s) do begin
      if s [i] <> #0 then begin
        case s[i] of
          #142: st := st + #196; //Ä
          #153: st := st + #214; //Ö
          #154: st := st + #220; //Ü
          #132: st := st + #228; //ä
          #148: st := st + #246; //ö
          #129: st := st + #252; //ü
          #225: st := st + #223; //ß
          else
            st := st + s[i];
        end;
      end;
    end;
  end;
  AsciiToAnsi := st;
end;					

1:

if (erster Hyroglyph=dieses) and (zweiter Hyroglyph=jenes) dann 'ß' ..