spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Quellcode

//first = ^TNode; //Zeiger auf einen Knoten(TNode);
//value = der zuvergleichende und anschließend richtig einsortierte Buchstabe
procedure insert(var first: PNode; Value: string);
var
  newNode, tmp, current: PNode;
begin
  if first = nil then
    add(first, Value)    //a

  else
  begin
    add(first, Value); //b-->a

    // code-logic...
    while (current <> nil) and (Value < current^.Value) do
    begin
      // ich muss mir den vorigen Zeiger auch merken!
      tmp := newNode;
      newNode^.Next := current^.Next;
      current^.Next := tmp;
    end;
  end;
end;

Quellcode

current := first;

while current^.Next^.Value < übergeben_value do
  current := current^.Next;

Quellcode

procedure insert(var First: PNode; toCompare: string);
  var
    tmp, nextBuffer, current: PNode;
  begin
    if First = nil then
      add(First, toCompare)    //d-->b-->

    else
    begin
      current := First;

      {
        * Laufe durch alle Knoten, solange die Bedingung: (Value > current^.Value) gilt
        * Erstelle einen Neuen Knoten
        * Dann lasse current^.Next auf new zeigen und new^.Next auf current^.Next zeigen
      }

      {Laufe durch alle Knoten, solange die Bedingung: (Value(d) > current^.Value(b)) gilt}
      while (current^.Next <> nil) and (current^.Next^.Value < toCompare) do
        current := current^.Next;

      {Erstelle einen Neuen Knoten}
      New(tmp);
      tmp^.Value := toCompare;
      tmp^.Next := nil;

      if First^.Next = nil then
      begin
        tmp^.Next := current;
        current^.Next := nil;
        First := tmp;
      end

      else
      begin
        if current^.Value > toCompare then
        begin
          current^.Next := tmp;
        end

        else
        begin
          nextBuffer := current^.Next;
          current^.Next := tmp;
          tmp^.Next := nextBuffer;
          //first := current;
        end;
      end;
    end;
  end;