Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by 3_of_8,
25. Jan 2007
Lass die ganzen TStream.Position-Zuweisungen weg. Setze nur am Anfang die Position auf 0, alles weitere erledigt TStream.Read automatisch.
procedure TForm7.Button9Click(Sender: TObject);
var
memos :TFileName;
FileStream: TMemoryStream;
l,i: Integer;
begin
FileStream := TMemoryStream.Create;
memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt'
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by 3_of_8,
24. Jan 2007
procedure TForm7.Button7Click(Sender: TObject);
var FileStream: TMemoryStream;
memos :TFileName;
a,b :String;
c,d :integer;
begin
a:=Memo1.Text;
b:=Memo2.Text;
c:=Length(a) ;
d:=Length(b) ;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by 3_of_8,
24. Jan 2007
Wie, "unleserlich"?
Die ersten 4 Zeichen sind "unleserlich" und später mal 4 Zeichen ebenfalls, das ist normal. Ansonsten müsste es eigentlich so stimmen. Wie sieht sie denn aus, die TXT?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by 3_of_8,
24. Jan 2007
Das ist nicht das Problem. Das Problem ist das length(a), das macht Ärger. Speicher das in eine Variable.
procedure TForm7.Panel1Click(Sender: TObject);
var FileStream: TMemoryStream;
memos: TFileName;
a,b: String;
la, lb: Integer;
begin
a:=Memo1.Text;