TEdit nur bestimmte stellen eines Textes anzeigen

[Gehstock]

also der TEdit bekommt sein Text so

Delphi-Quellcode:

 Memo1.Lines.Add(Result1);
  LabEdit1.Text :=Memo1.Lines[1];
  LabEdit2.Text :=Memo1.Lines[3];
  LabEdit3.Text :=Memo1.Lines[5];
  LabEdit4.Text :=Memo1.Lines[7];
  s:= 'AT+CIMI;^SLNG=?';
    SendCMD;
    Sleep(100);
    Memo1.Lines.Add(Result1);
  LabEdit5.Text :=Memo1.Lines[12];
  LabEdit6.Text :=Memo1.Lines[14];
  s:= 'AT^SCID;+cops?';
    SendCMD;
    Sleep(100);
    Memo1.Lines.Add(Result1);
  LabEdit7.Text :=Memo1.Lines[19];
  LabEdit8.Text :=Memo1.Lines[21];

jetzt soll er z.B. das "^SCID :" bei Kartennummer weglassen

[Matze]

Moin,

schau dir einfach mal die Stringfunktionen an. In deinem Fall wäre wohl Copy am geeignetsten. Evtl. mit einem vorigen Vergleich mittels Pos, um auch sicher zu gehen, nur ^SCID : zu entfernen.

[Gehstock]

Wollte mit AnsiMidStr arbeiten das führt zu

[Pascal Error] Main.pas(603): E2003 Undeclared identifier: 'AnsiMidStr'

[Balu der Bär]

Matze hat Dir die beiden korrekten Befehle bereits genannt. Mit Pos() suchst Du nach dem Teilstück und mittels Copy kopierst du alles was hinter diesem Text steht einfach. Alles Weitere steht in der Delphi-Hilfe.

Ebenfalls über die Hilfe findest Du heraus das man für AnsiMidStr die Unit StrUtils einbinden muss.