Forum: Sonstige Fragen zu Delphi
by Klaus01,
18. Apr 2006
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringlist;
Teilstring: String;
datum,p1,p2,vf: String;
i : Integer;
begin
sl:= TStringlist.Create;
try
if Opendialog1.execute then
Forum: Sonstige Fragen zu Delphi
by Klaus01,
7. Apr 2006
um dich ein wenig mehr zu verwirren ;o)
es gibt mehrere Möglichkeiten die Daten zu laden
hier eine weitere:
procedure readData;
var
sl: TStringlist;
i : Integer;
begin
Forum: Sonstige Fragen zu Delphi
by Klaus01,
7. Apr 2006
wenn das data ist: 23:13:24.44122112 PP:2 PP2:3 xD LOL VLC/VXX = 150/77
teil1 := copy(data,1,pos('xD',data)));
teil2 := copy(data,pos('LOL',data)+3,pos('=',data)));
wie die ganze Datei gelesen wird, steht schon im letzten post von mir.
Grüße
Forum: Sonstige Fragen zu Delphi
by Klaus01,
7. Apr 2006
var
i,int: Integer;
int2: String;
f: TextFile;
data :String;
begin
AssignFile(f,'rofl.txt');
{$I-}
Reset(f);
Forum: Sonstige Fragen zu Delphi
by Klaus01,
7. Apr 2006
var
dummy:String;
begin
AssignFile(f,'rofl.txt');
Reset(f);
Seek(f,4); // glaube das ist die 5 Stelle ^^
Read(f,dummy);
ShowMessage(dummy);
Forum: Sonstige Fragen zu Delphi
by Klaus01,
7. Apr 2006
mit Rewrite(f) überschreibst Du das File.
Zum Lesen öffnet man es mit Reset.
Grüße
Klaus