Einzelnen Beitrag anzeigen

Spike2k3

Registriert seit: 20. Aug 2003
73 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Buchstabe aus einer Zeile auslesen

  Alt 3. Jan 2004, 00:00
hey..in gewisser Weise klappts
hier is ma Quelltext soweit:
Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Memo2: TMemo;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  DateiName,s : string;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
DateiName:=Edit1.Text; //Die Datei mit dem Code wird eingegeben
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.lines.loadfromfile(DateiName); //Der Inhalt der txt wird eingelesen
S:=Memo1.Lines.text; //und wird mit S gleichgesetzt
S := Copy(S, 2, 5); //die Zahlen 2-5 werden ausgewählt
Memo1.text:= S; // und im Memo 1 angezeigt

end;



end.
Soweit sogut, doch möchte ich das aus der ersten Zeile nur die 4. Zahl und dann aus der zweiten Zeile die 3. Zahl ausgewählt wird..und die dann hintereinander, zb. als AB oder 43 oder so angezeigt werden (im Memo)...
  Mit Zitat antworten Zitat