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:

  FUNCTION Translate_Reverse(Eintrag : String) : STRING;
  VAR
    Buch     : STRING;
    F        : Text;
    gefunden : Boolean;
    TempStr1 : String;
    TempStr2 : String;
    TempStr3 : String;

  BEGIN
    Buch := 'C:\ENTWICK\CONTICON\TOOLS\'+ 'TEXTE.' + Suffix(Sprache);
    assign(F, Buch);
    gefunden := False;
    IF Pos('  ',Eintrag) > 0 THEN BEGIN
      WHILE Pos('  ',Eintrag) > 0 DO BEGIN
        Delete(Eintrag,Pos('  ',Eintrag),1); { macht aus mehreren, ein Leerzeichen }
      END;
    END;
    IF Fileexists(Buch) THEN BEGIN
      reset (F);
      WHILE NOT EOF(F) DO BEGIN
        readln(F,TempStr1);    (* deutsch *)
        readln(F,TempStr2);    (* šbersetzung *)
        readln(F,TempStr3);    (* Leerzeile *)
        (* Hier wird von englisch nach deutsch �bersetzt *)
        IF Trim(TempStr2) = Trim(Eintrag) THEN BEGIN
          gefunden := True;
          Translate_Reverse := TempStr1;
          Break;
        END;
      END;
    END ELSE BEGIN
      rewrite(F);
      TempStr1 := 'šbersetungsdatei '{ + SpracheToTxt(Sprache)};
      writeln(F,TempStr1);
      writeln(F,'');
      writeln(F,'');
    END;
    IF gefunden THEN BEGIN
      close(F);
    END ELSE BEGIN
      append(F);
      writeln(F,Eintrag);
      writeln(F,Eintrag);
      writeln(F,'');
      close(F);
      Translate_Reverse := Eintrag;
      Inc(Anzahl_nicht_gefunden);
    END;
  END;					

1:
2:
3:
4:

procedure TForm1.btn_Start_DBClick(Sender: TObject);
begin
Translate_Reverse; {ist nur zum testen ob er von DB750VW.pas den befehl akzeptiert, was er aber nicht tut (ungültiger Bezeichner Translate_Reverse)}
end;