Frage zum Substring in Delphi

[Oernie1984]

Hallo noch einmal,

Ich habe heute endlich mal wieder Zeit gehabt an meinen Programm weiter zu wurschteln...

Ich habe es mit dem mir zur Verfügung stehenden Wissen zum laufen bekommen (für Anregungen wie ich es einfacher oder besser schreiben kann bin ich immer dankbar ).

Ich habe jetzt nur noch ein Problem. Ich möchte gerne eine Abfrage einbauen mit der ich Denjenigen, der eine zu Prüfende Zahl eingibt dazu zwinge eine 8 Stellige Zahl in das Editfeld zu tippen. Ich erhalte aber immer eine Exception wenn ich testweise eine nicht 8 Stellige Zahl eintippe (EConvertError ''' ist kein gültiger Integerwert).

Meine Programm sieht nun folgendermaßen aus:

Delphi-Quellcode:

unit Pruefziffer;

interface

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

type
  TForm1 = class(TForm)
    Schliessen: TButton;
    Berrechnung: TButton;
    edit1: TEdit;
    Label1: TLabel;
    procedure ButtonSchliessenClick(Sender:Tobject);
    procedure ButtonBerrechnungClick(Sender:TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.ButtonBerrechnungClick(Sender:TObject);
var
PNR: String;
NR1,NR2,NR3,NR4,NR5,NR6,NR7,NR8: String;
NR1INT,NR2INT,NR3INT,NR4INT,NR5INT,NR6INT,NR7INT,NR8INT: Integer;
NR2STR, NR4STR, NR6STR, NR8STR: String;
NR2TEST1, NR2TEST2, NR4TEST1, NR4TEST2, NR6TEST1, NR6TEST2, NR8TEST1, NR8TEST2: Integer;
NR1B,NR2B,NR3B,NR4B,NR5B,NR6B,NR7B,NR8B: Integer;
Pruefziffer: Integer;
Pruefziffershow: String;

begin
PNR:= edit1.text;
if length(PNR) <>8 then
ShowMessage ('Nummer muss 8. Stellig sein')
else
NR1 := Copy (PNR, 1, 1);
NR2 := Copy (PNR, 2, 1);
NR3 := Copy (PNR, 3, 1);
NR4 := Copy (PNR, 4, 1);
NR5 := Copy (PNR, 5, 1);
NR6 := Copy (PNR, 6, 1);
NR7 := Copy (PNR, 7, 1);
NR8 := Copy (PNR, 8, 1);

NR1INT:= StrToInt(NR1);
NR2INT:= StrToInt(NR2);
NR3INT:= StrToInt(NR3);
NR4INT:= StrToInt(NR4);
NR5INT:= StrToInt(NR5);
NR6INT:= StrToInt(NR6);
NR7INT:= StrToInt(NR7);
NR8INT:= StrToInt(NR8);

NR1B:= NR1INT*1;

if NR2INT*2<10
then
begin NR2B:=NR2INT*2
end
else
begin
NR2STR:= INTtoStr(NR2INT*2);
NR2TEST1 := StrToInt (Copy (NR2STR,1,1));
NR2TEST2 := StrToInt (Copy (NR2STR,2,1));
NR2B:= NR2TEST1+NR2TEST2
end;

NR3B:= NR3INT*1;

if NR4INT*2<10
then
begin NR4B:=NR4INT*2
end
else
begin
NR4STR:= INTtoStr(NR4INT*2);
NR4TEST1 := StrToInt (Copy (NR4STR,1,1));
NR4TEST2 := StrToInt (Copy (NR4STR,2,1));
NR4B:= NR4TEST1+NR4TEST2
end;

NR5B:= NR5INT*1;

if NR6INT*2<10
then
begin NR6B:=NR6INT*2
end
else
begin
NR6STR:= INTtoStr(NR6INT*2);
NR6TEST1 := StrToInt (Copy (NR6STR,1,1));
NR6TEST2 := StrToInt (Copy (NR6STR,2,1));
NR6B:= NR6TEST1+NR6TEST2
end;

NR7B:= NR7INT*1;

if NR8INT*2<10
then
begin NR8B:=NR8INT*2
end
else
begin
NR8STR:= INTtoStr(NR8INT*2);
NR8TEST1 := StrToInt (Copy (NR8STR,1,1));
NR8TEST2 := StrToInt (Copy (NR8STR,2,1));
NR8B:= NR8TEST1+NR8TEST2
end;

Pruefziffer:= NR1B+NR2B+NR3B+NR4B+NR5B+NR6B+NR7B+NR8B;
Pruefziffershow:= IntToStr (ceil(Pruefziffer/10)*10-Pruefziffer);
Label1.Caption := PNR+Pruefziffershow;
end;

end.

Kann mir wer sagen was ich falsch mache?

Grüße
Örnie

[Pfaffe]

Folgendes funktioniert unter Delphi XE5:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PNR, NR1: String;
begin
  PNR:= edit1.text; 
  NR1:= PNR.SubString(0,1); // Startindex ist 0 basierend
  Label1.Caption:= NR1;
end;

[himitsu]

Zitat von Pfaffe:

Folgendes funktioniert unter Delphi XE5:

Weil man endlich mal den RecordHelper auch für generische Typen "freigegeben" hat.
(was ich mir schon von Anfang an lautstark gewünscht hatte ... wann wurden Record-Helper nochmal eingeführt? D2006? )

[Neutral General]

Zitat von Pfaffe:

Folgendes funktioniert unter Delphi XE5:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PNR, NR1: String;
begin
  PNR:= edit1.text; 
  NR1:= PNR.SubString(0,1); // Startindex ist 0 basierend
  Label1.Caption:= NR1;
end;

In XE4 funktioniert es auch schon

[baumina]

Um eine einzelne Stelle eines Strings zu erhalten, kannst Du Label1.Caption := PNR[1]; (erste Stelle) verwenden.