Button1Klick war nur ne probe die funktioniert hat...
Benutze Lazarus aber ist doch eigentlich wie delphi oder kommt das dadurch?
Danke dir für deine Hilfe
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, StrUtils;
type
{ TForm1 }
TForm1 =
class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
S:
string;
begin
if OpenDialog1.Execute
then { Dialog zum Dateiöffnen anzeigen }
begin
AssignFile(F, OpenDialog1.FileName);
{ Datei ausgewählt }
Reset(F);
Readln(F, S);
{ Erste Zeile der Datei lesen }
Edit1.Text := S;
{ String in ein TEdit schreiben }
CloseFile(F);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var Pos1, Pos2, Pos3: byte;
s :
string; f : textfile;
begin
s := '
Hallo; Guten Tag; Guten Morgen; Guten Abend;';
Pos1 := Pos('
;', s);
if Pos1 <> 0
then // erstes Semikolon gefunden
begin
// Position des zweiten Semikolons ermitteln;
// dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
Pos2 := PosEx('
;', s, Pos1 + 1);
if Pos2 <> 0
then
edit1.Text:='
gefunden an Position: ' + IntToStr(Pos2)
else
ShowMessage('
nur ein Semikolon im String vorhanden');
end
else
begin
ShowMessage('
kein Semikolon im String vorhanden');
end;
initialization
{$I unit1.lrs}
end.