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:

procedure TBuchMain.Umlautekonvertieren1Click(Sender: TObject);
var i, n : integer;
begin
  TbSchueler.first; i := 0;
  repeat
    inc(i);
    for n := 0 to TbSchueler.FieldCount-1 do
    begin
      if pos(chr(132), TbSchueler.fields[n].AsString) <> 0 then
      begin
        showmessage(inttostr(i) + ' * ' + chr(228) + ' ** ' + TbSchueler.fields[n].AsString);
         //StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags)
        TbSchueler.edit;
           //TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(153), chr(214), [rfReplaceAll]);  //Ö
           //TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(148), chr(246), [rfReplaceAll]);  //ö
           TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(132), chr(228), [rfReplaceAll]);  //ä
        TbSchueler.Post;
        showmessage('Person wurde geändert');
      end;
    end;
    TbSchueler.Next;
  until TbSchueler.Eof;
  showmessage('Konvertierung ist beendet');
  lade_Tabelle(TbSchueler, buchDM_Dlg.opendialog1.filename, listbox11.items[listbox11.itemindex]);
  DBGrid1.Refresh;  //
  showmessage('Neue Tabelle ist geladen');
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:
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:

procedure TBuchMain.Umlautekonvertieren1Click(Sender: TObject);
var i, n, k : integer;
    gauml, gouml, guuml, kauml, kouml, kuuml, szlig : boolean;
begin
  TbSchueler.first; i := 0;
  repeat
    inc(i);
    for n := 0 to TbSchueler.FieldCount-1 do
    begin
      for k := 1 to length(TbSchueler.fields[n].AsString) do
      begin
        gauml := false; gouml := false; guuml := false; kauml := false; kouml := false; kuuml := false; szlig := false;
        if (pos(chr(142), TbSchueler.fields[n].AsString[k]) <> 0) then gauml := true;
        if (pos(chr(153), TbSchueler.fields[n].AsString[k]) <> 0) then gouml := true;
        if (pos(chr(154), TbSchueler.fields[n].AsString[k]) <> 0) then guuml := true;
        if (pos(chr(132), TbSchueler.fields[n].AsString[k]) <> 0) then kauml := true;
        if (pos(chr(148), TbSchueler.fields[n].AsString[k]) <> 0) then kouml := true;
        if (pos(chr(129), TbSchueler.fields[n].AsString[k]) <> 0) then kuuml := true;
        if (pos(chr(225), TbSchueler.fields[n].AsString[k]) <> 0) then szlig := true;

        if gauml then
        begin
          TbSchueler.edit;
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(142), chr(196), [rfReplaceAll]);  // Ä
          TbSchueler.Post;
        end;
        if gouml then
        begin
          TbSchueler.Edit;
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(153), chr(214), [rfReplaceAll]);  // Ö
          TbSchueler.Post;
        end;
        if guuml then
        begin
          TbSchueler.Edit;
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(154), chr(220), [rfReplaceAll]);  // Ü
          TbSchueler.post;
        end;
        if kauml then
        begin
          TbSchueler.Edit
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(132), chr(228), [rfReplaceAll]);  // ä
          TbSchueler.Post;
        end;
        if kouml then
        begin
          TbSchueler.Edit;
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(148), chr(246), [rfReplaceAll]);  // ö
          TbSchueler.Post
        end;
        if kuuml then
        begin
          TbSchueler.Edit;
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(129), chr(252), [rfReplaceAll]);  // ü
          TbSchueler.Post;
        end;
        if szlig then
        begin
          TbSchueler.Edit;
            TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(225), chr(223), [rfReplaceAll]);  // ß
          TbSchueler.Post;
        end;
             //TbSchueler.fields[n].AsString := stringreplace(TbSchueler.fields[n].AsString, chr(130), chr(233), [rfReplaceAll]);  // e´
      end;
      showmessage('Schüler wurde geändert');
    end;
    TbSchueler.Next;
  until TbSchueler.Eof;
  showmessage('Konvertierung ist beendet, Tabelle ' + buchDM_Dlg.opendialog1.filename + 'wird geladen');
  lade_Tabelle(TbSchueler, buchDM_Dlg.opendialog1.filename, listbox11.items[listbox11.itemindex]);
  showmessage('hi');
  qSchuelerSort(self);
  DBGrid1.Refresh;  //
  showmessage('Tabelle ist geladen');
end;