unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
Memo1: TMemo;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var pos : integer;
sl: TStringList;
s,v1,v2 :
string;
procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;
procedure TForm1.Button7Click(Sender: TObject);
// Stringliste >> Memofeld
var zahl: boolean;
zahlstart, zahllength,i: integer;
zahlstring:
string;
begin
(*with OpenDialog1 do
begin
Filter := 'Textdateien (*.TXT)|*.TXT';
DefaultExt := 'TXT';
if Execute then sl.LoadFromFile(Filename)
end
FileName := 'C:\Dokumente und Einstellungen\Tommy\Desktop\Delphi2'; *)
s:='
0.001 abc 1.45';
//zum Testen
zahl:=false;
for i:=1
to length(s)
do begin
if (ord(s[i])>=48)
and (ord(s[i])<=57)
then begin
zahl:=true;
zahlstart:=i;
end;
if zahl
then begin
if (s[i]<>'
.')
then begin
if (ord(s[i])<48)
or (ord(s[i])>57)
then begin
zahl:=false;
zahllength:=i-zahlstart;
zahlstring:=copy(s,zahlstart,zahllength);
end;
end;
end;
end;
pos:=sl.Add(zahlstring);
//wenn Position nicht feststeht
(* v1:='v1='+copy(s,1,5); //bei fester Position
pos:=sl.Add(v1);
v2:='v2='+copy(s,15,18);
pos:=sl.Add(v2); *)
Memo1.Lines.AddStrings(sl)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
sl := TStringList.Create
end;
end.