Liste von Namen auf Charakteristiken überprüfen

[p80286]

Das ist zuviel des Guten:

Delphi-Quellcode:

for j:=1 to Length(word) do
                if edt_start.Text[j]<>word[j] then error:=true;

ich würde das verwenden:

Delphi-Quellcode:

error:=false;
j:=0;
repeat
  inc(j,1);
  if if edt_start.Text[j]<>wort[j] then error:=true;
until (j>=length(wort)) or error;

und wort statt word, da word ein Typ ist.

Gruß
K-H