Hallo,
denk ich mir ja, dass das stimmt,
jetzt war ich total verwiert,
aber ich habs ausprobirt,
mit eingerückten Text
und es geht
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,i2: byte;
variabelngleich: boolean;
variabelspeicher: array [1..10] of string;
begin
variabelspeicher[1]:='hfeo';
variabelspeicher[2]:='hoda1';
variabelspeicher[3]:='ho2wwe1';
variabelspeicher[4]:='ho321';
variabelspeicher[5]:='ho4w2';
variabelspeicher[6]:='how426';
variabelspeicher[7]:='hosda426';
variabelspeicher[8]:='hofswe426';
variabelspeicher[9]:='1';
variabelspeicher[10]:='fas1';
variabelngleich:=false;
for i:=1 to 10 do
for i2:=1 to 10 do
if i2<>i then
if variabelspeicher[i] = variabelspeicher[i2] then
variabelngleich:=true;
if variabelngleich then showmessage('Is was gleich');
end;