AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Liste sortieren

Offene Frage von "mr.dandy"
Ein Thema von mr.dandy · begonnen am 26. Nov 2006 · letzter Beitrag vom 14. Dez 2006
 
mr.dandy

Registriert seit: 26. Nov 2006
4 Beiträge
 
#1

Liste sortieren

  Alt 26. Nov 2006, 14:57
Hallo,
ich komme nicht mehr weiter
Ich soll eine Liste, die vorher mit Vokabeln gefüttert wurde nach den Anfangsbuchstaben sortiert werden.
Meine Idee:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var zactually,zcache: pointer;
    s,t:string;
    sot,finished,fine:boolean;
begin
   edit2.Text:='';
   new(zcache);
   zcache:=nil;
   finished:=false;
   if data_list = nil then edit2.Text:='Die Liste ist leer.'
   else begin
     zactually:=data_list;
     while zactually <> nil do begin
       fine:=true;
       while zcache <> nil do begin
         if ord(zcache.content[1]) <= ord(zactually.content[1]) then begin
            s:=zcache.content;
            zcache.content:=zactually.content;
            sot:=true;
            while zcache <> nil do begin
               if(sot) then begin
                 t:=zcache.next.content;
                 zcache.next.content:=s;
                 sot:=false;
               end
               else begin
                 s:=zcache.next.content;
                 zcache.next.content:=t;
                 sot:=true;
               end;
               zcache:=zcache^.next;
            end;
            finished:=true;
            fine:=false;
            break;
         end;
         if finished then begin
           finished:=false;
           break;
         end;
         zcache:=zcache^.next;
       end;
       if fine then begin
         zcache.content:=zactually.content;
         zcache^.next:=nil;
       end;
       zactually:=zactually^.next;
     end;
     while zcache <> nil do begin
       edit2.Text:=edit2.Text+' ++ '+zcache.content;
       zcache:=zcache^.next;
     end;
     edit2.Text:=edit2.Text+' ++';
   end;
end;
Abeer leider habe ich das mit den Listen noch nicht so ganz raus. Es kommt immer wieder zu Fehlern beim Ablauf

Wo liegen meine Fehler?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz