Sortering

Hmmmn. Rich edit en lidt usædvanlig kontrol at bruge til dette ... men prøv det her

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b : TStringList;
  i : Integer;
  buf : String;
begin
  a:= TStringList.Create;
  b:= TStringList.Create;
  a.Assign(Richedit1.Lines);
  b.Assign(Richedit2.Lines);

  for i:= 0 to pred(b.Count) do
  begin
    buf :=b[i];
    if  a.IndexOf(buf) = -1 then
      a.Add(Buf);
    RichEdit1.Lines.Assign(a);
    //alle ordene fra B er nu stoppet over i a og vist på skærmen
  end;

  for i:= 0 to pred(a.Count) do
  begin
    buf :=a[i];
    if  b.IndexOf(buf) = -1 then
      b.Add(Buf);
    RichEdit1.Lines.Assign(b);
    //alle ordene fra A er nu stoppet over i B og vist på skærmen
  end;
a.free;
b.Free;
end;


Jens B

Hvor kan man downloade programmet deplhi?

laserzap du kan prøve at gå ind på www.google.com og søge med delphi+download

Hej Jens

Noge gange går det lidt for stærkt for mig ...

Brug det her kode i stedet ....


procedure TForm1.Button1Click(Sender: TObject);
var
  a,b : TStringList;
  i : Integer;
  buf : String;
begin
  a:= TStringList.Create;
  b:= TStringList.Create;
  a.Assign(Richedit1.Lines);
  b.Assign(Richedit2.Lines);

  for i:= 0 to pred(b.Count) do
  begin
    buf :=b[i];
    if  a.IndexOf(buf) = -1 then
      a.Add(Buf);
  end;

  RichEdit1.Lines.Assign(a);
  //alle ordene fra B er nu stoppet over i a og vist på skærmen

  for i:= 0 to pred(a.Count) do
  begin
    buf :=a[i];
    if  b.IndexOf(buf) = -1 then
      b.Add(Buf);
  end;

  RichEdit1.Lines.Assign(b);
  //alle ordene fra A er nu stoppet over i B og vist på skærmen

a.free;
b.Free;
end;


Det laver næsten det samme, men er bare meget smartere .. En passende øvelse for dig kunne være at fortælle hvorfor dette kode er meget smarter end det andet ?

Jens B