AGB  ·  Datenschutz  ·  Impressum  







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

e-mail adressen ordnen im memo

Ein Thema von biby90 · begonnen am 12. Aug 2011 · letzter Beitrag vom 14. Aug 2011
Antwort Antwort
biby90
(Gast)

n/a Beiträge
 
#1

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 12:58
könnt ihr mir sagen wie ich den bubblesort jetzt die positionen tauschen lasse?
wäre total lieb von euch
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#2

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 13:07
Delphi-Referenz durchsuchenTStrings.Exchange dürfte zielführend sein.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
biby90
(Gast)

n/a Beiträge
 
#3

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 13:12
also ich bin jetzte bis dahin gekommen
Delphi-Quellcode:
unit sortieren;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i: Integer; //Position
  Done: Boolean; //Fertig oder Nicht
  Adresse: String; //E-Mail Adressen


implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text;
 begin;
    Done:= false;
    begin;
      i:=0;
      Done:= true;
      begin;
        While i < Adresse do
          if Adresse[i] > Adresse[i+1] then // wenn A größer als +1 dann...
           Adresse[i] Adresse[i+1]; //Adressen tauschen... wie?
           Done:= false;
      end;
      i:= +1;
    end;
 end;
end;

vergesst das ding es geht nicht also denk ich nochmal nach

Geändert von biby90 (12. Aug 2011 um 13:18 Uhr)
  Mit Zitat antworten Zitat
Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#4

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 13:18
warum hast du da mehrere begin und end?
in Adresse hast du alle adressen drin?
Dann kannst über Adresse[i] nur auf ein zeichen einer adresse zugreifen.
Schau dir mal TMemo.Lines an, das ist die Klasse TStrings.

tauschen:
Delphi-Quellcode:
hilfsvariable = Adresse[i]
Adresse[i] = Adresse[i+1]
Adresse[i+1] = hilfsvariable
Martin Weber
Ich bin ein Rüsselmops

Geändert von Angel4585 (12. Aug 2011 um 13:20 Uhr)
  Mit Zitat antworten Zitat
biby90
(Gast)

n/a Beiträge
 
#5

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 13:22
mein ausbilder möchte es so er sagt dann ist es übersichlicher.... ich persönlich finde es etwas verwirrend
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#6

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 13:27
Was soll denn das Memo1.Text bewirken? Wieso vergleichst Du Strings (Adresse) mit Integers (i)?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
biby90
(Gast)

n/a Beiträge
 
#7

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 14:58
ja hab ich auch gemerkt. naja die e-mail adressen sollen eben in das memo geschrieben werden.
also habs nochmal umgeschrieben aber es funktioniert nicht so wie ich es haben will
Delphi-Quellcode:
var
  Form1: TForm1;
  i : Integer; //Position
  Done: Boolean; //Fertig oder Nicht
  hilfe: String; //E-Mail Adressen
  Adresse: array of String;

implementation


{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text;
  begin;
    repeat
      done:= true;
      for i:=Low(Adresse) to High(Adresse) -1 do
      begin;
        if Adresse[i] > Adresse [i+1] then
        begin;
          hilfe:=Adresse[i];
          Adresse[i]:=Adresse[i+1];
          Adresse[i+1]:=hilfe;
          done:=false;
        end;
      end;
    until done;
  end;
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#8

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 15:01
Adresse ist ja auch leer, was willst Du da sortieren? Außerdem kannst Du Dir das Array doch komplett sparen, Du kannst auf die Art und Weise doch gleich Memo1.Lines nehmen, nur dass Du dort nicht Low() und High() verwendest, sondern von 0 bis Count - 2 durchgehst.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
biby90
(Gast)

n/a Beiträge
 
#9

AW: e-mail adressen ordnen im memo

  Alt 12. Aug 2011, 15:19
ja er ist leer weil der button sich das zu sortierende aus dem memo holen soll.
  Mit Zitat antworten Zitat
Antwort Antwort


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 02:17 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 by Thomas Breitkreuz