Hm, habe den Code angepasst, hat aber nichts geändert:
Delphi-Quellcode:
for i := 1 to Length(l) do
begin
if l[i] = ' ' then
s := s + '/ '
else
for j := 0 to High(Arr[1]) do
if Length(s) = 256 then
begin
WriteLn(s);
s := '';
end else
if Arr[1][j] = Trim(UpperCase(l[i])) then
s := s + Arr[0][j] + ' ';
end;
EDIT:
= 255 muss es sein. Das ist an sich aber unschön eine neue Zeile zu erstellen. Ist es nicht möglich das aneinander zu ketten ?
Und was zur Hölle macht die
DP mit meinem Code...immer wird er auseinandergenommen und ich muss ihn erst nochmal umschreiben....