Unika namn

Jag har en lista fylld med en massa strängar. Då jag lägger till en sträng vill jag att den ska 'heta' "ClipTab#", där # ska vara ett nummer från ett och upp. Och tar man bort strängen "ClipTab2" så ska det 'namnet' bli tillgängligt, och nästa nya sträng ska altså få det, och inte tex ClipTab23.

Det blev extremt rörigt, det där, men målet är att undvika att två eller fler strängar i listan ska vara likadana.

Jag har försökt med koden nedan, som inte fungerar, och jag börjar bli less på att stirra på den och försöka hitta felet.

"Tabs" är altså listan, och "s" är strängen som kommer att läggas till i den.

var
  i, k, antal : integer;
  s : string;
begin
  i:=0;
  antal:=tabs.Items.Count;
  k:=i;
  while i<antal do
    begin
      while (tabs.Items[k]<>'ClipTab'+inttostr(i)) and (k<antal-1) do
      inc(k);
  inc(i);
end;

s:='ClipTab'+IntToStr(i);

Språket är Delphi, men det är enkelt att översätta till tex c++, så det är en ganska enkel snutt.

Ser ni vad som är felet?

while (tabs.Items[k]='ClipTab'+inttostr(i)) and (k<antal-1) do

Precis, loppa tills det kommer en "namnlucka"...
Din kod fungerade lite halvt, jag försökte med den förut, men resultatet blir denna:

(Listan ser ursprungligen ut så här:)
----------
string1
item3
kalle25
hejsan
----------

Jag lägger till en sträng med hjälv av koden jag vill ha fram, och då ser listan ut så här:
----------
string1
item3
kalle25
hejsan
ClipTab4
----------

Redan där är det altså fel. Namnet borde bli ClipTab1.

Jag lägger till några fel:
----------
string1
item3
kalle25
hejsan
ClipTab4
ClipTab5
ClipTab6
ClipTab7
----------

Det fungerar som sagt "lite", den räknar upp iaf.

Men tar jag bort exempelvis ClipTab5, så får den kommande strängen namnet ClipTab7. Lägger jag till ytterliga strängar, så ser listan då ut så här:
----------
string1
item3
kalle25
hejsan
ClipTab4
ClipTab6
ClipTab7
ClipTab7
ClipTab8
ClipTab9
----------

Den fortsätter att räkna upp, men missar helt att platserna ClipTab1-ClipTab3, samt ClipTab5, är lediga.

var
  i, antal : integer;
  s : string;
  !!! Deklarera bool_break här !!!
begin
  i:=0;
  antal:=tabs.Items.Count;
 
  while i<antal do and bool_break <> true
    begin
      if tabs.Items[i]<>'ClipTab'+inttostr(i)) then
           bool_break = true
      end if
  inc(i);
end;

s:='ClipTab'+IntToStr(i);

Jag har konverterat koden till Delphi som jag tror att du menade, och som resultat heter varje ny sträng "ClipTab1"...

Du får gärna skriva funktionen helt i basic, så det är lättare att läsa och översätta än en 'mixad' snutt.

Hur som hellst, tackar för hjälpen.

var
  i, antal : integer;
  s : string;
  bool_break: boolean;
begin
  
  i:=0;
  antal:=tabs.Items.Count;

  while (i<antal) and (bool_break=false) do
    begin
      if tabs.Items[i]<>'ClipTab'+inttostr(i) then
         bool_break:=true;
    inc(i);
    end;

s:='ClipTab'+IntToStr(i);

end;

var
  i, antal : integer;
  s : string;
  bool_break: boolean;
begin
  
  i:=0;
  antal:=tabs.Items.Count;

  while (i<antal) and (bool_break=false) do
    begin
      if tabs.Items[i]<>'ClipTab'+inttostr(i) then
         bool_break:=true;
    inc(i);
    end;

s:='ClipTab'+IntToStr(i);

end;

Edit: Jag kan inte förstå hur detta kan uppnås utan två loopar; i nuvarande läger kollar den väl bara om string 1 heter ClipTab1, string 2 ClipTab2, string 3 ClipTab3 osv...

Det får vi allt hoppas..

Jag har jäklats med det (måttligt) i flera dagar, så nu är jag lagomt less, och vill gärna få lösningen serverat på ett silverfat.

Nu blir resultatet alltid "ClipTab0".

Jag är osäker på hur förljande kod ska översättas, så jag kan ha gjort fel där:

if i-k > 1 then     
        k = k +1
        exit do
     else
       k = i + 1
      end if

Det hade varit självklart om inte för "exit do"... vad fasen gör det?

Min översättning, om den nu ger nåt:

if i-k > 1 then
 k := k +1
else
 k := i + 1;

Absolut, men i praktiken vill det sig inte. Förstog inte en vb-rad, förmodligen det som är felet.

Hehe, det är irriterande att ha ett sådant här problem liggandes, man går runt och funderar på det, lite svårt att bli av med tanken.

Jag tycker att man borde ha två lopar, som sagt, en som får genom alla strängar, och en som går genom nummer som ska finnas i slutet på ClipTab-strängen.

Edit: Tufft att man kan hjälpa varandra, trotts att man kan olika språk. Visserligen är de ganska lika varandra, men endå...

De kan ligga hur som hellst i listan. Och som sagt, listan kan innehålla strängar som inte heter ClipTab#.

Tack för att tar dig tid! Har tyvärr ingen möjlighet att testa carken demot eller koden för tillfället, men jag rapporterar om några timmar.

Men det låter som att du har förstått vad jag är ute efter.

Jag vet hur det känns, man känner sig riktigt programmeringssugen, men man kommer inte på vad man ska göra. Tur att jag har haft ShirusuPad att jobba med ett tag nu.

Får jag fråga, efter att du förstod vad jag var ute efter (testade just demot, precis vad jag ville ha fram), hur lång tid tog det innan du knäckte det? Vill bara få en uppfattning om vart jag ligger någonstans..

Konverterade just koden till Delphi utan problem, och det fungerade hur fint som hellst.

När jag nu tittar på det i pascal-form ser det ju så självklart ut. Fattar inte riktigt hur jag kunde förbise det. Som du säger, börjar det jävlas ordentligt så ska man ta en liten paus, och därefter börja om. För om man från början börjar på fel sätt (och övertygar sig själv att man tänker helt rätt), så stannar man kvar i det tankesättet, och funderar inte alls på alternativa sätt...

Hur som hellst, tack för hjälpen än en gång.

Hehe, efter alla försök så måste jag ju bara posta den riktiga Delphi-koden:

var
  i,k,antal: integer;
  s: string;
  bool_found: boolean;
begin
  i:=0;
  antal:=tabs.Items.Count;

  while i<antal do
  begin
    bool_found := False;
    k:=0;
    while k<antal do
    begin
      If 'ClipTab' + IntToStr(i) = tabs.Items[k] Then
      begin
        bool_found := True;
        k := antal;
      end;
      inc(k);
    end;

    If bool_found = False Then
    begin
      s := 'ClipTab' + inttostr(i);
      i:=antal;
    end;

    inc(i);
  end;
  tabs.Items.Add(s);
end;