Delphi Programm für die Schule

[Armin.v.b]

Hi,

wir haben vor ca. 3 Monaten in der Schule mit Delphi angefangen. Ich habe auch eigentlich alles verstanden. Doch immoment verstehe ich nichts mehr. Deswegen habe ich mich zuhause einfach mal rangesetzt und versucht das zu machen, was wir in der Schule immoment machen.
Leider funktioniert das noch nicht so richtig und ich bräuchte einmal eure Hilfe.

Also:
In das obere Edit schreibe ich meine Angaben rein und in die unteren Edits sollen dann die einzelnen Angaben stehen.
Hier mal ein Beispiel wie es nach dem Buttonklick aussehen sollte:



Allerdings sieht es bei mir nach dem Buttenklick so aus:




Immoment will ich von euch nur wissen wie ich es hinkriege das bei dem Namen nur Klußmeier steht und nicht auch noch Florian.

Wenn ihr es wisst bitte hier posten. Aber bitte nicht die komplette Lösung für den Rest auch noch posten, weil ich es dann ja nicht mehr lerne^^.

Ach ja hier:

unit Test1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var xstr, nstr,vstr,sstr,hstr,pstr,ststr:String;
    x:Integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  xstr:=Edit1.Text;
  x:= pos(' ',xstr);
  Edit2.Text:= nstr;
  nstr:=copy(xstr,1,x-1);
  x:= pos(',',xstr);
  Edit3.Text:= vstr;
  vstr:=copy(xstr,1,x-1);
  

end;

end.

[Genesis]

Habe noch nie Delphi programmiert, aber die Syntax ist ja verständlich ... mal sehen

xstr := Edit1.Text;
pos1 := pos(' ', xstr);
nstr := copy(xstr, 1, pos1-1);
Edit2.Text := nstr;
pos2 := pos(',', xstr);
vstr := copy(xstr, pos1, pos2-pos1-1); 
Edit3.Text:= vstr;

So ungefähr ... wenn ich den copy-Befehl als (sourcestring, startpos, length) richtig interpretiere. Wobei ich mich frage, warum die "Rechnung" und die Zuweisung an die EditBoxen umgedreht sind.

[Armin.v.b]

Jo danke schonmal.
Allerdings hast du pos1,pos2 usw. geschrieben. Das haben wir allerdings noch net. Wir machen das bis jetzt nur so wie ich es auch geschrieben habe.
Vllt kannste das dann so nochmal machen.

mfg

EDIT: Das was du geschrieben hast funktioniert auch nicht^^.

[Genesis]

Das sind Variablen, die kannst du benennen wie du möchtest. Nur dass x kein aussagekräftiger Name ist und du zwei Stück davon brauchst, um 2 Positionen zu speichern.

Du musst nur entsprechend die Variablendeklarationen umschreiben:

var xstr, nstr,vstr,sstr,hstr,pstr,ststr:String;
    x:Integer;

in

var xstr, nstr,vstr,sstr,hstr,pstr,ststr:String;
    pos1, pos2:Integer;

[Armin.v.b]

Jo ok,

aber kann man das nicht noch i-wie anders machen?

[Genesis]

wie? Nur mit x?

Ja, dann musst halt verschachteln. Aber glaub' mir, 4 Byte sind nicht die Welt ...