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)...